package Moose::Meta::Attribute::Native;
-our $VERSION = '0.89_02';
+our $VERSION = '0.95';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
-my @trait_names = qw(Bool Counter Number String Array Hash);
+my @trait_names = qw(Bool Counter Number String Array Hash Code);
for my $trait_name (@trait_names) {
my $trait_class = "Moose::Meta::Attribute::Native::Trait::$trait_name";
div => 'div',
mod => 'mod',
abs => 'abs',
+ # ...
}
);
handles => {
add_text => 'append',
replace_text => 'replace',
+ # ...
}
);
inc_counter => 'inc',
dec_counter => 'dec',
reset_counter => 'reset',
+ # ...
}
);
darken => 'unset',
flip_switch => 'toggle',
is_dark => 'not',
+ # ...
}
);
set_option => 'set',
get_option => 'get',
has_option => 'exists',
+ # ...
}
);
Common methods for array references.
has 'queue' => (
- traits => ['Array'],
- is => 'ro',
- isa => 'ArrayRef[Str]',
- default => sub { [] },
- handles => {
- add_item => 'push',
- next_item => 'shift',
- }
+ traits => ['Array'],
+ is => 'ro',
+ isa => 'ArrayRef[Str]',
+ default => sub { [] },
+ handles => {
+ add_item => 'push',
+ next_item => 'shift',
+ # ...
+ }
+ );
+
+=item L<Code|Moose::Meta::Attribute::Native::Trait::Code>
+
+Common methods for code references.
+
+ has 'callback' => (
+ traits => ['Code'],
+ is => 'ro',
+ isa => 'CodeRef',
+ default => sub { sub { 'called' } },
+ handles => {
+ call => 'execute',
+ # ...
+ }
);
=back
=head1 BUGS
-All complex software has bugs lurking in it, and this module is no
-exception. If you find a bug please either email me, or add the bug
-to cpan-RT.
+See L<Moose/BUGS> for details on reporting bugs.
=head1 AUTHOR
Jesse (doy) Luehrs
+Jay Hannah
+
+Robert Buels
+
=head1 COPYRIGHT AND LICENSE
Copyright 2007-2009 by Infinity Interactive, Inc.