File Coverage

lib/SVG/Estimate/Role/ArgsWithUnits.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

package SVG::Estimate::Role::ArgsWithUnits;
$SVG::Estimate::Role::ArgsWithUnits::VERSION = '1.0114';
use strict;
use Moo::Role;
use Ouch;

=head1 NAME

SVG::Estimate::Role::ArgsWithUnits - Validate a list of arguments that could contain units

=head1 VERSION

version 1.0114

=head1 METHODS

=head2 BUILDARGS ( )

Validate the set of args from the class's C method to make sure they don't have units

=cut

around BUILDARGS => sub {
    my $orig = shift;
    my $class = shift;
    my @args = @_;
    my $args = @args % 2 ? $args[0] : { @args };
    foreach my $param ($class->args_with_units) {
        if ($args->{$param} =~ /\d\D+$/) {
            ouch 'units detected', "$param is not allowed to have units", $args->{$param};
        }
    }
    ##Validate before the arguments are used
    return $class->$orig($args);
};


1;