package UsesClosures;

sub new {
   my $attr;

   return bless({
      get_attr => sub {
         $attr
      },

      set_attr => sub {
         $attr = $_[1]
      },

      some_method => sub {
         print "$attr\n";
      }
   }, shift);
}

sub get_attr    { &{ shift->{get_attr   } } };
sub set_attr    { &{ shift->{set_attr   } } };
sub some_method { &{ shift->{some_method} } };