[gitmo/Role-Tiny.git] / lib / Class / Tiny / Object.pm

package Class::Tiny::Object;

use strictures 1;

sub new {
  my $class = shift;
  bless({ @_ }, $class);
}

sub does {
  require Role::Tiny;
  { no warnings 'redefine'; *does = \&Role::Tiny::does_role }
  goto &Role::Tiny::does_role;
}

1;
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;