File Coverage

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

Criterion	Covered	Total	%
statement	23	23	100.0
branch	4	4	100.0
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	34	34	100.0

package Getopt::Kingpin::Type::ExistingDir;
use 5.008001;
use strict;
use warnings;
use Carp;
use Path::Tiny;

our $VERSION = "0.09";

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

    my $p = path($value);
    if ($p->is_file) {
        printf STDERR "error: '%s' is a file, try --help\n", $value;
        return undef, 1;
    } elsif ($p->is_dir) {
        # ok
    } else {
        printf STDERR "error: path '%s' does not exist, try --help\n", $value;
        return undef, 1;
    }
    return $p;
}

1;
__END__