Test::Errors
Test::Headers
Test::Plugin
+ Test::Inline
+TestApp::Plugin::FullyQualified
/;
use Catalyst::Utils;
sub execute {
my $c = shift;
my $class = ref( $c->component( $_[0] ) ) || $_[0];
- my $action = "$_[1]";
+ my $action = $_[1]->reverse;
my $method;
no warnings 'redefine';
sub Catalyst::Log::error { }
}
+
+# Make sure we can load Inline plugins.
+
+package Catalyst::Plugin::Test::Inline;
+
+use strict;
+
+use base qw/Catalyst::Base Class::Data::Inheritable/;
+
1;