Metaclass compatibility fail. This needs to be reduced to a test for Moose..

diff --git a/TODO.register_actions b/TODO.register_actions
index 33765da..2168a5b 100644 (file)
--- a/TODO.register_actions
+++ b/TODO.register_actions
@@ -1,4 +1,4 @@
-module.Catalyst-Controller-FormBuilder
+module.Catalyst-Controller-FormBuilder - t/unit_metaclass_compat_non_moose.t
 module.Catalyst-Controller-WrapCGI
 module.Catalyst-Log-Log4perl
 module.Catalyst-Model-Search

diff --git a/t/lib/TestAppMetaCompat.pm b/t/lib/TestAppMetaCompat.pm
new file mode 100644 (file)
index 0000000..e9ead78
--- /dev/null
+++ b/t/lib/TestAppMetaCompat.pm
@@ -0,0 +1,8 @@
+package TestAppMetaCompat;
+use base qw/Catalyst/;
+
+__PACKAGE__->config(name => __PACKAGE__);
+__PACKAGE__->setup;
+
+1;
+

diff --git a/t/lib/TestAppMetaCompat/Action/UsesCAF.pm b/t/lib/TestAppMetaCompat/Action/UsesCAF.pm
new file mode 100644 (file)
index 0000000..9e4ecbd
--- /dev/null
+++ b/t/lib/TestAppMetaCompat/Action/UsesCAF.pm
@@ -0,0 +1,8 @@
+package TestAppMetaCompat::Action::UsesCAF;
+
+use strict;
+
+use base qw/Catalyst::Action Class::Accessor::Fast/;
+__PACKAGE__->mk_accessors(qw/ foo /);
+
+1;

diff --git a/t/lib/TestAppMetaCompat/Controller/Base.pm b/t/lib/TestAppMetaCompat/Controller/Base.pm
new file mode 100644 (file)
index 0000000..0a66d50
--- /dev/null
+++ b/t/lib/TestAppMetaCompat/Controller/Base.pm
@@ -0,0 +1,6 @@
+package TestAppMetaCompat::Controller::Base;
+
+use strict;
+use base qw/Catalyst::Controller/;
+
+1;

diff --git a/t/lib/TestAppMetaCompat/Controller/Books.pm b/t/lib/TestAppMetaCompat/Controller/Books.pm
new file mode 100644 (file)
index 0000000..01acb99
--- /dev/null
+++ b/t/lib/TestAppMetaCompat/Controller/Books.pm
@@ -0,0 +1,9 @@
+package TestAppMetaCompat::Controller::Books;
+
+use strict;
+use base qw/TestAppMetaCompat::Controller::Base/;
+
+sub edit : Local ActionClass('+Catalyst::Controller::FormBuilder::Action') {
+}
+
+1;

diff --git a/t/unit_metaclass_compat_non_moose.t b/t/unit_metaclass_compat_non_moose.t
new file mode 100644 (file)
index 0000000..8c9c279
--- /dev/null
+++ b/t/unit_metaclass_compat_non_moose.t
@@ -0,0 +1,7 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use lib 't/lib';
+use Test::More tests => 1;
+use_ok('TestAppMetaCompat');
+