diff options
Diffstat (limited to 'Data-MultiValued/lib/Data/MultiValued/AttributeAccessors.pm')
-rw-r--r-- | Data-MultiValued/lib/Data/MultiValued/AttributeAccessors.pm | 34 |
1 files changed, 17 insertions, 17 deletions
diff --git a/Data-MultiValued/lib/Data/MultiValued/AttributeAccessors.pm b/Data-MultiValued/lib/Data/MultiValued/AttributeAccessors.pm index e6fec67..cac3538 100644 --- a/Data-MultiValued/lib/Data/MultiValued/AttributeAccessors.pm +++ b/Data-MultiValued/lib/Data/MultiValued/AttributeAccessors.pm @@ -12,9 +12,9 @@ sub _generate_accessor_method { return sub { if (@_ >= 2) { - $attr->set_tagged_value($_[0], {}, $_[1]); + $attr->set_multi_value($_[0], {}, $_[1]); } - $attr->get_tagged_value($_[0], {}); + $attr->get_multi_value($_[0], {}); } } @@ -25,7 +25,7 @@ sub _generate_reader_method { return sub { confess "Cannot assign a value to a read-only accessor" if @_ > 1; - $attr->get_tagged_value($_[0], {}); + $attr->get_multi_value($_[0], {}); }; } @@ -34,7 +34,7 @@ sub _generate_writer_method { my $attr = $self->associated_attribute; return sub { - $attr->set_tagged_value($_[0], {}, $_[1]); + $attr->set_multi_value($_[0], {}, $_[1]); }; } @@ -43,7 +43,7 @@ sub _generate_predicate_method { my $attr = $self->associated_attribute; return sub { - $attr->has_tagged_value($_[0], {}) + $attr->has_multi_value($_[0], {}) }; } @@ -52,57 +52,57 @@ sub _generate_clearer_method { my $attr = $self->associated_attribute; return sub { - $attr->clear_tagged_value($_[0], {}) + $attr->clear_multi_value($_[0], {}) }; } -sub _generate_tagged_accessor_method { +sub _generate_multi_accessor_method { my $self = shift; my $attr = $self->associated_attribute; return sub { if (@_ >= 3) { - $attr->set_tagged_value($_[0], $_[1], $_[2]); + $attr->set_multi_value($_[0], $_[1], $_[2]); } - $attr->get_tagged_value($_[0],$_[1]); + $attr->get_multi_value($_[0],$_[1]); } } -sub _generate_tagged_reader_method { +sub _generate_multi_reader_method { my $self = shift; my $attr = $self->associated_attribute; return sub { confess "Cannot assign a value to a read-only accessor" if @_ > 2; - $attr->get_tagged_value($_[0],$_[1]); + $attr->get_multi_value($_[0],$_[1]); }; } -sub _generate_tagged_writer_method { +sub _generate_multi_writer_method { my $self = shift; my $attr = $self->associated_attribute; return sub { - $attr->set_tagged_value($_[0], $_[1], $_[2]); + $attr->set_multi_value($_[0], $_[1], $_[2]); }; } -sub _generate_tagged_predicate_method { +sub _generate_multi_predicate_method { my $self = shift; my $attr = $self->associated_attribute; return sub { - $attr->has_tagged_value($_[0],$_[1]) + $attr->has_multi_value($_[0],$_[1]) }; } -sub _generate_tagged_clearer_method { +sub _generate_multi_clearer_method { my $self = shift; my $attr = $self->associated_attribute; return sub { - $attr->clear_tagged_value($_[0],$_[1]) + $attr->clear_multi_value($_[0],$_[1]) }; } |