diff options
Diffstat (limited to 't')
-rw-r--r-- | t/lib/RTest/TestDB/Baz.pm | 12 | ||||
-rw-r--r-- | t/lib/RTest/TestDB/Foo.pm | 13 |
2 files changed, 12 insertions, 13 deletions
diff --git a/t/lib/RTest/TestDB/Baz.pm b/t/lib/RTest/TestDB/Baz.pm index ad4c61e..3b0306e 100644 --- a/t/lib/RTest/TestDB/Baz.pm +++ b/t/lib/RTest/TestDB/Baz.pm @@ -11,12 +11,12 @@ use Reaction::Types::Core qw/NonEmptySimpleStr/; has 'id' => (isa => Int, is => 'ro', required => 1); has 'name' => (isa => NonEmptySimpleStr, is => 'rw', required => 1); has 'foo_list' => ( - isa => ArrayRef, - is => 'rw', - required => 1, - writer => 'set_foo_list', - reader => 'get_foo_list', - ); + isa => ArrayRef, + is => 'rw', + required => 1, + writer => 'set_foo_list', + reader => 'get_foo_list', +); around get_foo_list => sub { [ $_[1]->foo_list->all ] }; diff --git a/t/lib/RTest/TestDB/Foo.pm b/t/lib/RTest/TestDB/Foo.pm index d9bd736..952fb7b 100644 --- a/t/lib/RTest/TestDB/Foo.pm +++ b/t/lib/RTest/TestDB/Foo.pm @@ -11,13 +11,12 @@ use Reaction::Types::Core qw/NonEmptySimpleStr/; 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 'bars' => (isa => ArrayRef, is => 'ro' ); -has 'bazes' => - ( - isa => ArrayRef, - required => 1, - reader => 'get_bazes', - writer => 'set_bazes' +has 'bars' => (isa => ArrayRef, is => 'ro'); +has 'bazes' => ( + isa => ArrayRef, + required => 1, + reader => 'get_bazes', + writer => 'set_bazes' ); use namespace::clean -except => [ 'meta' ]; |