サブルーチン（関数）

関数リファレンス・コードリファレンス

my $code = sub {
    my $foo = shift;
    print "Foo => $foo\n";
};
$code->("One");   # Foo => One
$code->("Two");   # Foo => Two
$code->("Three"); # Foo => Three

コールバックとして

package MyObject;
use Moose;

has code => (is => 'ro', isa => 'CodeRef');

sub run {
   my $self = shift;
   ....
   $self->code->("Blah");
}

package main;
use MyObject;

sub foo {
    my $foo = shift;
    print "Foo => $foo\n";
};

my $object = MyObject->new( code => \&foo );
$object->run();
最終更新 by Daisuke Maki, 2009-06-06
Myタグ:
 
人気タグ:
 
Powered by Catalyst