[gitmo/Moose-Autobox.git] / lib / Moose / Autobox / Value.pm

package Moose::Autobox::Value;     
use Moose::Role 'with', 'requires';

our $VERSION = '0.01';

with 'Moose::Autobox::Defined';

requires 'print';

sub do { 
    my ($self, $block) = @_;
    local $_ = $self;
    $block->($self);
}

1;
Commit	Line	Data
5f654d8e	1	package Moose::Autobox::Value;
6cf5bcf2	2	use Moose::Role 'with', 'requires';
5f654d8e	3
	4	our $VERSION = '0.01';
	5
	6	with 'Moose::Autobox::Defined';
	7
6cf5bcf2	8	requires 'print';
	9
	10	sub do {
	11	my ($self, $block) = @_;
	12	local $_ = $self;
	13	$block->($self);
	14	}
	15
5f654d8e	16	1;