Slide 10
Slide 10 text
Keyword::Simple example
package ExampleKeywordSimple;
use Keyword::Simple;
sub import {
Keyword::Simple::define 'yapc' => sub {
my $ref = shift;
substr($$ref, 0, 0) = 'print "
はいさい!";sub';
};
}
1;
use ExampleKeywordSimple;
yapc okinawa { } # =>
はいさい!