4121148bdcd09140668d9dc5181dc6c02592b372
[gitmo/Moose-Autobox.git] / lib / Moose / Autobox / Value.pm
1 package Moose::Autobox::Value;     
2 use Moose::Role 'with', 'requires';
3
4 our $VERSION = '0.01';
5
6 with 'Moose::Autobox::Defined';
7
8 requires 'print';
9
10 sub do { 
11     my ($self, $block) = @_;
12     local $_ = $self;
13     $block->($self);
14 }
15
16 1;