Commit | Line | Data |
6c74d087 |
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; |