diff options
Diffstat (limited to 't/lib/RTest/TestDB/Foo.pm')
-rw-r--r-- | t/lib/RTest/TestDB/Foo.pm | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/t/lib/RTest/TestDB/Foo.pm b/t/lib/RTest/TestDB/Foo.pm index e580af8..76e920f 100644 --- a/t/lib/RTest/TestDB/Foo.pm +++ b/t/lib/RTest/TestDB/Foo.pm @@ -1,21 +1,25 @@ package # hide from PAUSE RTest::TestDB::Foo; -use DBIx::Class 0.07; +use base qw/DBIx::Class::Core/; +use metaclass 'Reaction::Meta::Class'; +use Moose; -use base qw/DBIx::Class Reaction::Object/; -use Reaction::Class; -use Reaction::Types::Core 'NonEmptySimpleStr'; +use MooseX::Types::Moose qw/ArrayRef Int/; +use Reaction::Types::Core qw/NonEmptySimpleStr/; -has 'id' => (isa => 'Int', is => 'ro', required => 1); +has 'id' => (isa => Int, is => 'ro', required => 1); has 'first_name' => (isa => NonEmptySimpleStr, is => 'rw', required => 1); has 'last_name' => (isa => NonEmptySimpleStr, is => 'rw', required => 1); -has 'baz_list' => ( - isa => 'ArrayRef', is => 'rw', required => 1, - reader => 'get_baz_list', writer => 'set_baz_list' +has 'baz_list' => + ( + isa => ArrayRef, + required => 1, + reader => 'get_baz_list', + writer => 'set_baz_list' ); -__PACKAGE__->load_components(qw/InflateColumn::DateTime Core/); +use namespace::clean -except => [ 'meta' ]; __PACKAGE__->table('foo'); @@ -25,21 +29,17 @@ __PACKAGE__->add_columns( last_name => { data_type => 'varchar', size => 255 }, ); -sub display_name { - my $self = shift; - return join(' ', $self->first_name, $self->last_name); -} - __PACKAGE__->set_primary_key('id'); __PACKAGE__->has_many('links_to_baz_list' => 'RTest::TestDB::FooBaz', 'foo'); __PACKAGE__->many_to_many('baz_list' => 'links_to_baz_list' => 'baz'); -{ - no warnings 'redefine'; - *get_baz_list = sub { [ shift->baz_list->all ] }; +sub display_name { + my $self = shift; + return join(' ', $self->first_name, $self->last_name); } +sub get_baz_list { [ shift->baz_list->all ] }; __PACKAGE__->meta->make_immutable(inline_constructor => 0); |