]> git.vpit.fr Git - perl/modules/Lexical-Types.git/commitdiff
Reverse the logic for the "skipping declaration" example
authorVincent Pit <vince@profvince.com>
Mon, 2 Mar 2009 14:16:17 +0000 (15:16 +0100)
committerVincent Pit <vince@profvince.com>
Mon, 2 Mar 2009 14:16:17 +0000 (15:16 +0100)
lib/Lexical/Types.pm

index f84372b17fda02d9ac87d0b327fcd91d8a4c7481..85df03982bc19897735fa4cfbb50726a87db3a4f 100644 (file)
@@ -82,9 +82,9 @@ If the value given is a code reference C<$mangler>, it will be called at compile
 
 either an empty list, in which case the current typed lexical definition will be skipped (thus it won't be altered to trigger a run-time hook) ;
 
-    use Lexical::Types as => sub { return $_[0] =~ /Str/ ? () : @_ };
-    my Str $x; # nothing special
-    my Int $y; # calls Int->TYPEDSCALAR
+    use Lexical::Types as => sub { return $_[0] =~ /Str/ ? @_ : () };
+    my Str $y; # calls Str->TYPEDSCALAR
+    my Int $x; # nothing special
 
 =item *