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;