summaryrefslogtreecommitdiffstats
path: root/t/03-custom-constructor.t
diff options
context:
space:
mode:
authorJesse Luehrs <doy@tozt.net>2012-04-25 01:36:31 -0500
committerJesse Luehrs <doy@tozt.net>2012-04-25 01:37:24 -0500
commitc700061c7b00d18778389d0850d21f966bd25ec6 (patch)
tree20ff7b852f4742f68a81599cb601a02ce64cbe3f /t/03-custom-constructor.t
parent9a6b074c9ed600e402e0bfe09ff43dc9138bfaa8 (diff)
downloadmoosex-abc-c700061c7b00d18778389d0850d21f966bd25ec6.tar.gz
moosex-abc-c700061c7b00d18778389d0850d21f966bd25ec6.zip
cleanups
Diffstat (limited to 't/03-custom-constructor.t')
-rw-r--r--t/03-custom-constructor.t24
1 files changed, 0 insertions, 24 deletions
diff --git a/t/03-custom-constructor.t b/t/03-custom-constructor.t
deleted file mode 100644
index cb12835..0000000
--- a/t/03-custom-constructor.t
+++ /dev/null
@@ -1,24 +0,0 @@
-#!/usr/bin/env perl
-use strict;
-use warnings;
-use Test::More tests => 1;
-
-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(@_) }
-
-package main;
-my $foosub = Foo::Sub->new;
-ok($custom_constructor_called, 'custom constructor was called');