view release on metacpan or  search on metacpan

t/10basics.t  view on Meta::CPAN

plan tests => 7;

{
    no warnings 'redefine';
    *NEXT::AUTOLOAD = \&Catalyst::Plugin::C3::__hacked_next_autoload;
}

package C3NT::Foo;
use base qw/ Catalyst::Component /;

sub new { my $class = shift; my %args = (@_); bless \%args => $class }
sub basic { return 42 }
sub c3_then_next { return 21 }
sub next_then_c3 { return 22 }

package C3NT::Bar;
use base qw/ C3NT::Foo /;

sub basic { shift->NEXT::basic; }
sub actual_fail_halfway { shift->NEXT::ACTUAL::actual_fail_halfway }
sub next_then_c3 { shift->next::method }