File Coverage

lib/MouseX/AttributeHelpers/Number.pm

Criterion	Covered	Total	%
statement	13	14	92.8
branch			n/a
condition			n/a
subroutine	10	11	90.9
pod	1	1	100.0
total	24	26	92.3

package MouseX::AttributeHelpers::Number;
use Mouse;

extends 'MouseX::AttributeHelpers::Base';

has '+method_constructors' => (
    default => sub {
        return +{
            set => sub {
                my (undef, $name) = @_;
                return sub { $_[0]->{$name} = $_[1] };
            },
            add => sub {
                my (undef, $name) = @_;
                return sub { $_[0]->{$name} += $_[1] };
            },
            sub => sub {
                my (undef, $name) = @_;
                return sub { $_[0]->{$name} -= $_[1] };
            },
            mul => sub {
                my (undef, $name) = @_;
                return sub { $_[0]->{$name} *= $_[1] };
            },
            div => sub {
                my (undef, $name) = @_;
                return sub { $_[0]->{$name} /= $_[1] };
            },
            mod => sub {
                my (undef, $name) = @_;
                return sub { $_[0]->{$name} %= $_[1] };
            },
            abs => sub {
                my (undef, $name) = @_;
                return sub { $_[0]->{$name} = abs $_[0]->{$name} };
            },
        };
    },
);

sub helper_type { 'Num' }

no Mouse;
__PACKAGE__->meta->make_immutable(inline_constructor => 0);
__END__