MooseX::AttributeHelpers::MethodProvider::Bag - MooseX::AttributeHelpers::MethodProvider::Bag documentation

MooseX-AttributeHelpers documentation

Contained in the MooseX-AttributeHelpers distribution.

Index

NAME
DESCRIPTION
METHODS
- meta
PROVIDED METHODS
- count
- delete
- empty
- exists
- get
- keys
- add
- reset
- values
- kv
BUGS
AUTHOR
COPYRIGHT AND LICENSE

Code Index:

package MooseX::AttributeHelpers::MethodProvider::Bag
- add
- delete
- reset
__END__
EOF

NAME

MooseX::AttributeHelpers::MethodProvider::Bag

DESCRIPTION

This is a role which provides the method generators for MooseX::AttributeHelpers::Collection::Bag.

This role is composed from the MooseX::AttributeHelpers::Collection::ImmutableHash role.

METHODS

meta

PROVIDED METHODS

count
delete
empty
exists
get
keys
add
reset
values
kv

BUGS

All complex software has bugs lurking in it, and this module is no exception. If you find a bug please either email me, or add the bug to cpan-RT.

AUTHOR

Stevan Little <stevan@iinteractive.com>

COPYRIGHT AND LICENSE

Copyright 2007-2009 by Infinity Interactive, Inc.

http://www.iinteractive.com

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

MooseX-AttributeHelpers documentation

Contained in the MooseX-AttributeHelpers distribution.

package MooseX::AttributeHelpers::MethodProvider::Bag;
use Moose::Role;

our $VERSION   = '0.23';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';

with 'MooseX::AttributeHelpers::MethodProvider::ImmutableHash';

sub add : method {
    my ($attr, $reader, $writer) = @_;
    return sub { $reader->($_[0])->{$_[1]}++ };
}

sub delete : method {
    my ($attr, $reader, $writer) = @_;
    return sub { CORE::delete $reader->($_[0])->{$_[1]} };
}

sub reset : method {
    my ($attr, $reader, $writer) = @_;
    return sub { $reader->($_[0])->{$_[1]} = 0 };
}

1;

__END__