3 use Test::More tests => 2;
5 use Catalyst::Controller;
10 sub Catalyst::Controller::new {
12 return shift->next::method(@_);
17 BEGIN { is $NEW_CALLED, 0, 'new not called yet' }
21 use Catalyst::Test qw(TestApp);
23 is $NEW_CALLED, '1', 'Catalyst::Controller::new does get called';