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 ] };
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' ];