diff options
author | groditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2007-11-13 21:43:36 +0000 |
---|---|---|
committer | groditi <groditi@03d0b0b2-0e1a-0410-a411-fdb2f4bd65d7> | 2007-11-13 21:43:36 +0000 |
commit | 89939ff9e89dbee9a8e4e7b8a5614f1fff0a74ae (patch) | |
tree | 3c34547fc126c6f6f0f8d078ba5d100bad42d74a /lib/Reaction/UI/ViewPort/TimeRangeCollection.pm | |
parent | cb52a02e82517266f669680fc67f6df2f6193bdb (diff) | |
download | reaction-89939ff9e89dbee9a8e4e7b8a5614f1fff0a74ae.tar.gz reaction-89939ff9e89dbee9a8e4e7b8a5614f1fff0a74ae.zip |
changes so far for new moose / mop
Diffstat (limited to 'lib/Reaction/UI/ViewPort/TimeRangeCollection.pm')
-rw-r--r-- | lib/Reaction/UI/ViewPort/TimeRangeCollection.pm | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/lib/Reaction/UI/ViewPort/TimeRangeCollection.pm b/lib/Reaction/UI/ViewPort/TimeRangeCollection.pm index 1ebc03b..ac61f3e 100644 --- a/lib/Reaction/UI/ViewPort/TimeRangeCollection.pm +++ b/lib/Reaction/UI/ViewPort/TimeRangeCollection.pm @@ -62,7 +62,7 @@ class TimeRangeCollection is 'Reaction::UI::ViewPort', which { isa => 'HashRef', is => 'rw', init_arg => 'fields', clearer => '_clear_field_map', predicate => '_has_field_map', - set_or_lazy_build('field_map'), + lazy_build => 1, ); has on_next_callback => ( @@ -73,7 +73,7 @@ class TimeRangeCollection is 'Reaction::UI::ViewPort', which { implements fields => as { shift->_field_map }; - implements build_range_vps => as { [] }; + implements _build_range_vps => as { [] }; implements spanset => as { my ($self) = @_; @@ -112,7 +112,7 @@ class TimeRangeCollection is 'Reaction::UI::ViewPort', which { parent => $self }; my $count = scalar(@{$self->range_vps}); - my $field = $self->build_simple_field(TimeRange, 'range-'.$count, $args); + my $field = $self->_build_simple_field(TimeRange, 'range-'.$count, $args); my $d = DateTime::Format::Duration->new( pattern => '%s' ); if ($d->format_duration( $self->spanset->intersection($field->value)->duration ) > 0) { # XXX - Stop using the stash here? @@ -125,7 +125,7 @@ class TimeRangeCollection is 'Reaction::UI::ViewPort', which { } }; - implements build_field_map => as { + implements _build_field_map => as { my ($self) = @_; my %map; foreach my $field (@{$self->range_vps}) { @@ -137,7 +137,7 @@ class TimeRangeCollection is 'Reaction::UI::ViewPort', which { return \%map; }; - implements build_field_names => as { + implements _build_field_names => as { my ($self) = @_; return [ (map { $_->name } @{$self->range_vps}), @@ -192,7 +192,7 @@ class TimeRangeCollection is 'Reaction::UI::ViewPort', which { return !defined($error); }; - implements build_simple_field => as { + implements _build_simple_field => as { my ($self, $class, $name, $args) = @_; return $class->new( name => $name, @@ -202,29 +202,29 @@ class TimeRangeCollection is 'Reaction::UI::ViewPort', which { ); }; - implements build_time_to => as { + implements _build_time_to => as { my ($self) = @_; - return $self->build_simple_field(DateTime, 'time_to', {}); + return $self->_build_simple_field(DateTime, 'time_to', {}); }; - implements build_time_from => as { + implements _build_time_from => as { my ($self) = @_; - return $self->build_simple_field(DateTime, 'time_from', {}); + return $self->_build_simple_field(DateTime, 'time_from', {}); }; - implements build_repeat_to => as { + implements _build_repeat_to => as { my ($self) = @_; - return $self->build_simple_field(DateTime, 'repeat_to', {}); + return $self->_build_simple_field(DateTime, 'repeat_to', {}); }; - implements build_repeat_from => as { + implements _build_repeat_from => as { my ($self) = @_; - return $self->build_simple_field(DateTime, 'repeat_from', {}); + return $self->_build_simple_field(DateTime, 'repeat_from', {}); }; - implements build_pattern => as { + implements _build_pattern => as { my ($self) = @_; - return $self->build_simple_field(String, 'pattern', {}); + return $self->_build_simple_field(String, 'pattern', {}); }; implements next => as { @@ -356,7 +356,7 @@ Arguments: $to_remove Arguments: $to_add -=head2 build_simple_field +=head2 _build_simple_field Arguments: $class, $name, $args where $class is an object, $name is a scalar and $args is a hashref |