X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=lib%2FMoose%2FAutobox%2FValue.pm;h=4121148bdcd09140668d9dc5181dc6c02592b372;hb=6cf5bcf23399cc82e234f91a2e78f262bf70eab1;hp=b9bce837ad92ca5c3277a3a96d5f282b499a481d;hpb=5f654d8ec893246d215ae8a3b0fa9b467d50b3b9;p=gitmo%2FMoose-Autobox.git

diff --git a/lib/Moose/Autobox/Value.pm b/lib/Moose/Autobox/Value.pm
index b9bce83..4121148 100644
--- a/lib/Moose/Autobox/Value.pm
+++ b/lib/Moose/Autobox/Value.pm
@@ -1,8 +1,16 @@
 package Moose::Autobox::Value;     
-use Moose::Role 'with';
+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;
\ No newline at end of file