my $sound = 0;
- quote_sub 'Silly::dagron',
+ quote_sub 'Silly::dragon',
q{ print ++$sound % 2 ? 'burninate' : 'roar' },
{ '$sound' => \$sound };
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
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</SYNOPSIS>'s C<Silly::dagron> for an example using captures.
+code. See the L</SYNOPSIS>'s C<Silly::dragon> for an example using captures.
=head3 options