File Coverage

blib/lib/Time/C/Val.pm

Criterion	Covered	Total	%
statement	27	37	72.9
branch	4	10	40.0
condition			n/a
subroutine	8	10	80.0
pod	0	7	0.0
total	39	64	60.9

use strict;
use warnings;
package Time::C::Val;
$Time::C::Val::VERSION = '0.001';
use overload (
    '+' => 'add',
    '-' => 'subtract',
    '0+' => 'numify',
    '""' => 'stringify',
    '+=' => 'add_assign',
    '-=' => 'subtract_assign',
    fallback => 1,
);

sub new { my $c = shift; bless { @_ }, $c; }

sub add {
    my ($self, $other, $swap) = @_;

    my $acc = $self->{acc};
    my $meth =
      sprintf "plus_%ss", defined $self->{meth} ? $self->{meth} : $acc;
    return $self->{self}{tm}->$meth($other)->$acc();
}

sub subtract {
    my ($self, $other, $swap) = @_;

    if ($swap) { return $other - $self->{val}; }

    my $acc = $self->{acc};
    my $meth =
      sprintf "minus_%ss", defined $self->{meth} ? $self->{meth} : $acc;
    return $self->{self}{tm}->$meth($other)->$acc();
}

sub numify {
    my ($self, $other, $swap) = @_;
    $self->{val};
}

sub stringify {
    my ($self, $other, $swap) = @_;
    $self->{val};
}

sub add_assign {
    my ($self, $other) = @_;

    my $acc = $self->{acc};
    my $meth =
      sprintf "plus_%ss", defined $self->{meth} ? $self->{meth} : $acc;
    my $tm = $self->{self}{tm}->$meth($other);
    $self->{self}{tm} = $tm;
    $self->{val} = $tm->$acc();
}

sub subtract_assign {
    my ($self, $other) = @_;

    my $acc = $self->{acc};
    my $meth =
      sprintf "minus_%ss", defined $self->{meth} ? $self->{meth} : $acc;
    my $tm = $self->{self}{tm}->$meth($other);
    $self->{self}{tm} = $tm;
    $self->{val} = $tm->$acc();
}

1;

__END__