File Coverage

blib/lib/Number/Object.pm

Criterion	Covered	Total	%
statement	41	43	95.3
branch	3	4	75.0
condition			n/a
subroutine	13	15	86.6
pod	4	5	80.0
total	61	67	91.0

package Number::Object;

use strict;
use warnings;
our $VERSION = '0.03';

use Class::Component;
use Carp ();
use Scalar::Util ();
use Storable ();

use Number::Object::Filter;

use overload (
    q{""}    => \&to_s,
    q{0+}    => \&to_n,
    q{++}    => sub { Carp::croak '"++"(mutators) is unsupported operation' },
    q{--}    => sub { Carp::croak '"--"(mutators) is unsupported operation' },
    fallback => 1,
);

sub new {
    my $class = shift;
    my $value = shift;
    my $self  = $class->NEXT( new => @_ );

    $self->value($value);

    $self;
}

sub clone {
    my($self, $value) = @_;
    my $clone = Storable::dclone($self);
    $clone->value($value) if defined $value;
    $clone;
}

sub value {
    my($self, $value) = @_;
    return $self->{value} unless defined $value;
    $self->run_hook( 'value.set' => { value => $value } );
    $self->{value} = $value;
}

sub filtered {
    my $self = shift;
    my $value = $self->value;
    Number::Object::Filter->execute($self, $value, @_);
}

sub to_s { shift->value }
*to_n = *to_s;

1;
__END__