File Coverage

blib/lib/Number/Object/Plugin/Tax.pm

Criterion	Covered	Total	%
statement	31	33	93.9
branch	1	2	50.0
condition	4	7	57.1
subroutine	10	11	90.9
pod	0	5	0.0
total	46	58	79.3

package Number::Object::Plugin::Tax;

use strict;
use warnings;
use base 'Class::Component::Plugin';

use POSIX ();

our $RATE = '1.05';

sub tax :Method {
    my($self, $c, $args) = @_;
    $c->clone($self->calc($c));
}

sub include_tax :Method {
    my($self, $c, $args) = @_;
    $c->clone($self->calc($c) + $c->{value});
}

sub calc {
    my($self, $c, $rate) = @_;
    $rate ||= $self->config->{rate} || 1;
    my $price = $c->{value};

    my $method = $self->config->{method} || 'floor';
    $method = 'floor' unless $method eq 'ceil';
    $method = "calc_$method";

    $self->$method(($price * $rate) - $price);
}

sub calc_floor {
    my($self, $price) = @_;
    POSIX::floor($price);
}

sub calc_ceil {
    my($self, $price) = @_;
    POSIX::ceil($price);
}

1;
__END__