File Coverage

blib/lib/Business/Payment/Types.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

package Business::Payment::Types;
use MooseX::Types;

use MooseX::Types::Moose qw/Num Str/;

use Math::Currency;
use DateTime;

class_type 'DateTime';
class_type 'Math::Currency';

coerce 'Math::Currency',
    from Num,
    via { Math::Currency->new(@_) };

coerce 'DateTime',
    from Str,
    via {
        my ($date) = @_;
        my ($m, $y); # Predeclare M and Y that we will use for DT
        # Catch things in the form of MM/YY
        if($date =~ /^(\d+)\/(\d+)$/) {
            ($m, $y) = ($1,$2);
        } else {
            die "Expiration date must be in the form of MM/YY or MM/YYYY (not $date)";
        }

        # Build a 4 digit year by prepending the first two digits of the
        # current year.
        if(length($y) == 2) {
            my $now = DateTime->now;
            $y = substr($now->year, 0, 2).$y;
        }

        DateTime->new(month => $m, year => $y);
    };

1;