X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FSub%2FQuote.pm;h=1d2f352e6c23d488dbd1abcc7f7060bfcdcf9628;hb=a0b12b0243e9916e97f9191e2a7ae51e413adf86;hp=d067e2a2e1a68c42471e4d59534614f0296ff801;hpb=876b1e94868eb7b8bf61143cba29b91733cf2f44;p=gitmo%2FMoo.git diff --git a/lib/Sub/Quote.pm b/lib/Sub/Quote.pm index d067e2a..1d2f352 100644 --- a/lib/Sub/Quote.pm +++ b/lib/Sub/Quote.pm @@ -128,7 +128,7 @@ Sub::Quote - efficient generation of subroutines via string eval my $sound = 0; - quote_sub 'Silly::dagron', + quote_sub 'Silly::dragon', q{ print ++$sound % 2 ? 'burninate' : 'roar' }, { '$sound' => \$sound }; @@ -136,9 +136,9 @@ And elsewhere: Silly->kitty; # meow Silly->doggy; # woof - Silly->dagron; # burninate - Silly->dagron; # roar - Silly->dagron; # burninate + Silly->dragon; # burninate + Silly->dragon; # roar + Silly->dragon; # burninate =head1 DESCRIPTION @@ -157,7 +157,7 @@ C<$name> is the subroutine where the coderef will be installed. C<$code> is a string that will be turned into code. C<\%captures> is a hashref of variables that will be made available to the -code. See the L's C for an example using captures. +code. See the L's C for an example using captures. =head3 options