File Coverage

blib/lib/Getopt/Kingpin/Type/Int.pm

Criterion	Covered	Total	%
statement	17	17	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	25	25	100.0

package Getopt::Kingpin::Type::Int;
use 5.008001;
use strict;
use warnings;
use Carp;

our $VERSION = "0.10";

sub set_value {
    my $self = shift;
    my ($value) = @_;

    if ($value =~ /^-?[0-9]+$/) {
        # ok
    } else {
        printf STDERR "int parse error\n";
        return undef, 1;
    }
    return $value;
}

1;
__END__