File Coverage

blib/lib/Math/Factor/XS.pm

Criterion	Covered	Total	%
statement	28	28	100.0
branch	2	2	100.0
condition			n/a
subroutine	10	10	100.0
pod	1	1	100.0
total	41	41	100.0

package Math::Factor::XS;

use strict;
use warnings;
use base qw(Exporter);
use boolean qw(true);

use Carp qw(croak);
use List::MoreUtils qw(all);
use Params::Validate ':all';
use Scalar::Util qw(looks_like_number);

our ($VERSION, @EXPORT_OK, %EXPORT_TAGS);
$VERSION = '0.40';
@EXPORT_OK = qw(factors matches prime_factors count_prime_factors);
%EXPORT_TAGS = (all => \@EXPORT_OK);

validation_options(
    on_fail => sub
{
    my ($error) = @_;
    chomp $error;
    croak $error;
});

my $positive_nums = sub
{
    all { looks_like_number($_) && ($_ >= 0) }
      ref $_[0] ? @{$_[0]} : ($_[0]);
};

sub matches
{
    validate_pos(@_,
        { type => SCALAR,
          callbacks => {
            'is a positive number' =>
            $positive_nums,
          },
        },
        { type => ARRAYREF,
          callbacks => {
            'factors are positive numbers' => sub
            {
                my $factors = shift;
                !@$factors or $positive_nums->($factors);
            },
          },
        },
        { type => HASHREF,
          optional => true,
        },
    );
    return xs_matches(@_);
}

require XSLoader;
XSLoader::load(__PACKAGE__, $VERSION);

1;
__END__