diff options
author | Jesse Luehrs <doy@tozt.net> | 2012-04-25 01:36:31 -0500 |
---|---|---|
committer | Jesse Luehrs <doy@tozt.net> | 2012-04-25 01:37:24 -0500 |
commit | c700061c7b00d18778389d0850d21f966bd25ec6 (patch) | |
tree | 20ff7b852f4742f68a81599cb601a02ce64cbe3f /t/custom-constructor.t | |
parent | 9a6b074c9ed600e402e0bfe09ff43dc9138bfaa8 (diff) | |
download | moosex-abc-c700061c7b00d18778389d0850d21f966bd25ec6.tar.gz moosex-abc-c700061c7b00d18778389d0850d21f966bd25ec6.zip |
cleanups
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; |