diff options
Diffstat (limited to 'lib/ComponentUI/Controller/TestModel')
-rw-r--r-- | lib/ComponentUI/Controller/TestModel/Bar.pm | 2 | ||||
-rw-r--r-- | lib/ComponentUI/Controller/TestModel/Baz.pm | 3 | ||||
-rw-r--r-- | lib/ComponentUI/Controller/TestModel/Foo.pm | 8 |
3 files changed, 7 insertions, 6 deletions
diff --git a/lib/ComponentUI/Controller/TestModel/Bar.pm b/lib/ComponentUI/Controller/TestModel/Bar.pm index 7ede58e..c346480 100644 --- a/lib/ComponentUI/Controller/TestModel/Bar.pm +++ b/lib/ComponentUI/Controller/TestModel/Bar.pm @@ -1,7 +1,7 @@ package ComponentUI::Controller::TestModel::Bar; -use base 'Reaction::UI::Controller::Collection::CRUD'; use Reaction::Class; +BEGIN { extends 'Reaction::UI::Controller::Collection::CRUD'; } __PACKAGE__->config( model_name => 'TestModel', diff --git a/lib/ComponentUI/Controller/TestModel/Baz.pm b/lib/ComponentUI/Controller/TestModel/Baz.pm index 6c88792..f426780 100644 --- a/lib/ComponentUI/Controller/TestModel/Baz.pm +++ b/lib/ComponentUI/Controller/TestModel/Baz.pm @@ -1,7 +1,8 @@ package ComponentUI::Controller::TestModel::Baz; -use base 'Reaction::UI::Controller::Collection::CRUD'; use Reaction::Class; +BEGIN { extends 'Reaction::UI::Controller::Collection::CRUD'; } + use ComponentUI::UI::ViewPort::Baz::ListView::Member; __PACKAGE__->config( diff --git a/lib/ComponentUI/Controller/TestModel/Foo.pm b/lib/ComponentUI/Controller/TestModel/Foo.pm index 8730432..d9f3659 100644 --- a/lib/ComponentUI/Controller/TestModel/Foo.pm +++ b/lib/ComponentUI/Controller/TestModel/Foo.pm @@ -1,7 +1,7 @@ package ComponentUI::Controller::TestModel::Foo; -use base 'Reaction::UI::Controller::Collection::CRUD'; use Reaction::Class; +BEGIN { extends 'Reaction::UI::Controller::Collection::CRUD'; } use aliased 'Reaction::UI::ViewPort::SearchableListViewContainer'; use aliased 'ComponentUI::TestModel::Foo::SearchSpec'; @@ -67,9 +67,9 @@ override _build_action_viewport_args => sub { }; sub object : Chained('base') PathPart('id') CaptureArgs(1) { - my ($self, $c, $object) = @_; - $self->next::method($c, $object); - # just as failing use case + my ($self, $c, $object) = @_; + $self->next::method($c, $object); + # just as failing use case } 1; |