package Moose::Autobox::Value;
-use Moose::Role 'with', 'requires';
+use Moose::Role 'with';
our $VERSION = '0.01';
with 'Moose::Autobox::Defined';
-requires 'print';
-
sub do {
my ($self, $block) = @_;
local $_ = $self;
=head1 SYNOPOSIS
use Moose::Autobox;
- use autobox;
-
- 5->print; # prints 5
- # excute a sub on the value
- 10->do(sub { $_ + 15 })->print; # prints 25
+ # execute a sub on the value
+ print 10->do(sub { $_ * $_ }); # prints 100
=head1 DESCRIPTION
+This is a role to describes a defined (non-reference) Perl value.
+
+=head1 METHODS
+
+=over 4
+
+=item B<meta>
+
+=item B<do (\&block)>
+
+=back
+
=head1 BUGS
All complex software has bugs lurking in it, and this module is no
=head1 COPYRIGHT AND LICENSE
-Copyright 2006 by Infinity Interactive, Inc.
+Copyright 2006-2008 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>