autoboxing

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

diff --git a/lib/Moose/Autobox/Value.pm b/lib/Moose/Autobox/Value.pm
index b9bce83..4121148 100644 (file)
--- 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