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

package Moose::Autobox::Defined;
use Moose::Role 'with';

our $VERSION = '0.01';

with 'Moose::Autobox::Item';
            
sub defined { 1 }

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

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