diff options
Diffstat (limited to 't/custom-constructor.t')
-rw-r--r-- | t/custom-constructor.t | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/t/custom-constructor.t b/t/custom-constructor.t new file mode 100644 index 0000000..6289787 --- /dev/null +++ b/t/custom-constructor.t @@ -0,0 +1,29 @@ +#!/usr/bin/env perl +use strict; +use warnings; +use Test::More; + +our $custom_constructor_called = 0; + +{ + package Foo; + use Moose; + use MooseX::ABC; + + requires 'bar', 'baz'; +} + +{ + package Foo::Sub; + use Moose; + extends 'Foo'; + + sub bar { } + sub baz { } + sub new { $::custom_constructor_called++; shift->SUPER::new(@_) } +} + +my $foosub = Foo::Sub->new; +ok($custom_constructor_called, 'custom constructor was called'); + +done_testing; |