use Test::Fatal;
use Method::Generate::Constructor;
+use Method::Generate::Accessor;
-my $gen = Method::Generate::Constructor->new;
+my $gen = Method::Generate::Constructor->new(
+ accessor_generator => Method::Generate::Accessor->new
+);
$gen->generate_method('Foo', 'new', {
one => { },
'pass with both required args'
);
+is(
+ exception { Bar->new({ one => 1, THREE => 3 }) },
+ undef,
+ 'hashrefs also supported'
+);
+
+is(
+ exception { $first->new(one => 1, THREE => 3) },
+ undef,
+ 'calling ->new on an object works'
+);
+
done_testing;