
Moose::Meta::Attribute::Native::Trait::Code - Helper trait for Code attributes

package Foo;
use Moose;
has 'callback' => (
traits => ['Code'],
is => 'ro',
isa => 'CodeRef',
default => sub {
sub { print "called" }
},
handles => {
call => 'execute',
},
);
my $foo = Foo->new;
$foo->call; # prints "called"

This trait provides native delegation methods for code references.

If you don't provide an isa value for your attribute, it will default to CodeRef.

Calls the coderef with the given args.
Calls the coderef with the the instance as invocant and given args.

See "BUGS" in Moose for details on reporting bugs.

Florian Ragwitz <rafl@debian.org>

Copyright 2007-2009 by Infinity Interactive, Inc.
This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.