11 return bless({ ref($_[0]) eq 'HASH' ? %{$_[0]} : @_ }, $class);
12 $NO_BUILD{$class} = !$class->can('BUILD') unless exists $NO_BUILD{$class};
14 ? bless({ ref($_[0]) eq 'HASH' ? %{$_[0]} : @_ }, $class)
16 my $proto = ref($_[0]) eq 'HASH' ? $_[0] : { @_ };
17 bless({ %$proto }, $class)->BUILDALL($proto);
23 if ( scalar @_ == 1 ) {
24 unless ( defined $_[0] && ref $_[0] eq 'HASH' ) {
25 die "Single parameters to new() must be a HASH ref"
28 return { %{ $_[0] } };
31 warn "The new() method for $class expects a hash reference or a key/value list."
32 . " You passed an odd number of arguments";
42 $self->${\(($BUILD_MAKER ||= do {
43 require Method::Generate::BuildAll;
44 Method::Generate::BuildAll->new
45 })->generate_method(ref($self)))}(@_);
50 { no warnings 'redefine'; *does = \&Role::Tiny::does_role }
51 goto &Role::Tiny::does_role;