From: Vincent Pit Date: Tue, 17 Mar 2015 13:44:38 +0000 (-0300) Subject: Double equal sign please X-Git-Tag: v0.03~7 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=db0decc19198c2e881faabebcb4b1372d26c5d5c;p=perl%2Fmodules%2FScope-Context.git Double equal sign please --- diff --git a/lib/Scope/Context.pm b/lib/Scope/Context.pm index 6658c3c..70f68c0 100644 --- a/lib/Scope/Context.pm +++ b/lib/Scope/Context.pm @@ -333,7 +333,7 @@ If omitted, C<$frames> defaults to C<1>. sub { { { - my $up = Scope::Context->new->up(2); # = Scope::Context->up(2) + my $up = Scope::Context->new->up(2); # == Scope::Context->up(2) # $up points two contextes above this one, which is the sub. } } @@ -378,7 +378,7 @@ If omitted, C<$frames> defaults to C<0>, which results in the closest sub enclos } sub inner { - my $sub = Scope::Context->new->sub(1); # = Scope::Context->sub(1) + my $sub = Scope::Context->new->sub(1); # == Scope::Context->sub(1) # $sub points to the context for the outer() sub. } @@ -417,7 +417,7 @@ If omitted, C<$frames> defaults to C<0>, which results in the closest eval enclo eval { sub { - my $eval = Scope::Context->new->eval; # = Scope::Context->eval + my $eval = Scope::Context->new->eval; # == Scope::Context->eval # $eval points to the eval context. }->() }