X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?p=catagits%2FCatalyst-Runtime.git;a=blobdiff_plain;f=t%2Funit_core_component_loading.t;h=6b9f8dad7f074e9f79e7637e0af3dec230cb82fd;hp=258738508ed29a6af9c6eb1bcf9fd9172648fe0b;hb=dbb2d5cd1b69209e53eb204e7451d688327b2e11;hpb=6cb9e3832b3faf55e2990e9bff51c709a8cfc4fb diff --git a/t/unit_core_component_loading.t b/t/unit_core_component_loading.t index 2587385..6b9f8da 100644 --- a/t/unit_core_component_loading.t +++ b/t/unit_core_component_loading.t @@ -63,10 +63,10 @@ sub make_component_file { write_component_file(\@dir_list, $name_final, <NEXT::COMPONENT(\@_); + my \$self = shift->next::method(\@_); no strict 'refs'; *{\__PACKAGE__ . "::whoami"} = sub { return \__PACKAGE__; }; \$self; @@ -166,7 +166,7 @@ package ${appclass}::Model::TopLevel; use base 'Catalyst::Model'; sub COMPONENT { - my \$self = shift->NEXT::COMPONENT(\@_); + my \$self = shift->next::method(\@_); no strict 'refs'; *{\__PACKAGE__ . "::whoami"} = sub { return \__PACKAGE__; }; \$self; @@ -185,7 +185,7 @@ package ${appclass}::Model::TopLevel::Nested; use base 'Catalyst::Model'; no warnings 'redefine'; -sub COMPONENT { return shift->NEXT::COMPONENT(\@_); } +sub COMPONENT { return shift->next::method(\@_); } 1; EOF