foo

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

diff --git a/lib/Moose/Autobox/Defined.pm b/lib/Moose/Autobox/Defined.pm
index a71010a..210b22b 100644 (file)
--- a/lib/Moose/Autobox/Defined.pm
+++ b/lib/Moose/Autobox/Defined.pm
@@ -7,4 +7,10 @@ with 'Moose::Autobox::Item';
             
 sub defined { 1 }
 
+sub do { 
+    my ($self, $block) = @_;
+    local $_ = $self;
+    $block->($self);
+}
+
 1;
\ No newline at end of file