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=258738508ed29a6af9c6eb1bcf9fd9172648fe0b;hp=bae3c5e6d1ade154983d23d9bbf3bbeb78ed2738;hb=ac5c933bdd463558e8d621507a53a7b247a9093e;hpb=e5ecd5bc38bac3e2fcfaf643ea2a4c6ab46d7e57 diff --git a/t/unit_core_component_loading.t b/t/unit_core_component_loading.t index bae3c5e..2587385 100644 --- a/t/unit_core_component_loading.t +++ b/t/unit_core_component_loading.t @@ -40,7 +40,7 @@ my @components = ( { type => 'View', prefix => 'View', name => 'Foo' }, ); -sub write_component_file { +sub write_component_file { my ($dir_list, $module_name, $content) = @_; my $dir = File::Spec->catdir(@$dir_list); @@ -165,7 +165,7 @@ write_component_file([$libdir, $appclass, 'Model'], 'TopLevel', <NEXT::COMPONENT(\@_); no strict 'refs'; *{\__PACKAGE__ . "::whoami"} = sub { return \__PACKAGE__; };