lib/Class/Tiny/Object.pm

   1 package Class::Tiny::Object;
   2
   3 use strictures 1;
   4
   5 sub new {
   6   my $class = shift;
   7   bless({ @_ }, $class);
   8 }
   9
  10 sub does {
  11   require Role::Tiny;
  12   { no warnings 'redefine'; *does = \&Role::Tiny::does_role }
  13   goto &Role::Tiny::does_role;
  14 }
  15
  16 1;