diff options
Diffstat (limited to 't/constructor-name.t')
-rw-r--r-- | t/constructor-name.t | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/t/constructor-name.t b/t/constructor-name.t new file mode 100644 index 0000000..5ae1258 --- /dev/null +++ b/t/constructor-name.t @@ -0,0 +1,30 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; +use Test::Moose; + +{ + package Bar; + + sub create { bless {}, shift } +} + +{ + package Foo; + use Moose; + use Bread::Board::Declare; + + has bar => ( + is => 'ro', + isa => 'Bar', + constructor_name => 'create', + ); +} + +with_immutable { + my $foo = Foo->new; + isa_ok($foo->bar, 'Bar'); +} 'Foo'; + +done_testing; |