diff options
author | groditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2009-07-08 22:54:19 +0000 |
---|---|---|
committer | groditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2009-07-08 22:54:19 +0000 |
commit | 7b5e71adcc00ae151a7908c2cddcd7323408efc7 (patch) | |
tree | 4d12552e007c79cb83eb728f2e435548272a3caf /lib/Reaction/UI/ViewPort/Object.pm | |
parent | 65b88951ac01b54d83a9d2c5b27c276e31b839fd (diff) | |
download | reaction-7b5e71adcc00ae151a7908c2cddcd7323408efc7.tar.gz reaction-7b5e71adcc00ae151a7908c2cddcd7323408efc7.zip |
use more MooseX::Types and support actionattribute in Action vp to explicitly provide the URI to post to
Diffstat (limited to 'lib/Reaction/UI/ViewPort/Object.pm')
-rw-r--r-- | lib/Reaction/UI/ViewPort/Object.pm | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/lib/Reaction/UI/ViewPort/Object.pm b/lib/Reaction/UI/ViewPort/Object.pm index 62c71c3..9a8738e 100644 --- a/lib/Reaction/UI/ViewPort/Object.pm +++ b/lib/Reaction/UI/ViewPort/Object.pm @@ -16,24 +16,26 @@ use aliased 'Reaction::UI::ViewPort::Field::Container'; use aliased 'Reaction::InterfaceModel::Object' => 'IM_Object'; +use MooseX::Types::Moose qw/ArrayRef HashRef/; + use namespace::clean -except => [ qw(meta) ]; extends 'Reaction::UI::ViewPort'; #everything is read only right now. Later I can make somethings read-write #but first I need to figure out what depends on what so we can have decent triggers has model => (is => 'ro', isa => IM_Object, required => 1); -has fields => (is => 'ro', isa => 'ArrayRef', lazy_build => 1); +has fields => (is => 'ro', isa => ArrayRef, lazy_build => 1); has field_args => (is => 'rw'); -has field_order => (is => 'ro', isa => 'ArrayRef'); +has field_order => (is => 'ro', isa => ArrayRef); -has builder_cache => (is => 'ro', isa => 'HashRef', lazy_build => 1); -has excluded_fields => (is => 'ro', isa => 'ArrayRef', lazy_build => 1); -has included_fields => (is => 'ro', isa => 'ArrayRef', lazy_build => 1); -has computed_field_order => (is => 'ro', isa => 'ArrayRef', lazy_build => 1); +has builder_cache => (is => 'ro', isa => HashRef, lazy_build => 1); +has excluded_fields => (is => 'ro', isa => ArrayRef, lazy_build => 1); +has included_fields => (is => 'ro', isa => ArrayRef, lazy_build => 1); +has computed_field_order => (is => 'ro', isa => ArrayRef, lazy_build => 1); -has containers => ( is => 'ro', isa => 'ArrayRef', lazy_build => 1); -has container_layouts => ( is => 'rw', isa => 'ArrayRef' ); +has containers => ( is => 'ro', isa => ArrayRef, lazy_build => 1); +has container_layouts => ( is => 'rw', isa => ArrayRef ); sub BUILD { my ($self, $args) = @_; |