diff options
author | groditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-11-26 20:34:44 +0000 |
---|---|---|
committer | groditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2008-11-26 20:34:44 +0000 |
commit | 13312031c567552b3f18b650a49b83bb2f125576 (patch) | |
tree | 9f004f673d9dd66f8cecc8f369dc06965fc2489a /t/lib | |
parent | 4e03a5dc868fb49e5a308216d0f064d599a5dee0 (diff) | |
download | reaction-13312031c567552b3f18b650a49b83bb2f125576.tar.gz reaction-13312031c567552b3f18b650a49b83bb2f125576.zip |
some formatting fixes and removal of stray attribute
Diffstat (limited to 't/lib')
-rw-r--r-- | t/lib/RTest/TestDB/Baz.pm | 12 | ||||
-rw-r--r-- | t/lib/RTest/TestDB/Foo.pm | 12 |
2 files changed, 11 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 a7e669c..9b34bf3 100644 --- a/t/lib/RTest/TestDB/Foo.pm +++ b/t/lib/RTest/TestDB/Foo.pm @@ -11,13 +11,11 @@ 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 ); -has 'bazes' => - ( - isa => ArrayRef, - required => 1, - reader => 'get_bazes', - writer => 'set_bazes' +has 'bazes' => ( + isa => ArrayRef, + required => 1, + reader => 'get_bazes', + writer => 'set_bazes' ); use namespace::clean -except => [ 'meta' ]; |