File Coverage

blib/lib/Getopt/Kingpin/Type/File.pm
Criterion Covered Total %
statement 18 18 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod 1 1 100.0
total 25 25 100.0


line stmt bran cond sub pod time code
1             package Getopt::Kingpin::Type::File;
2 5     5   92 use 5.008001;
  5         18  
3 5     5   23 use strict;
  5         9  
  5         107  
4 5     5   24 use warnings;
  5         10  
  5         126  
5 5     5   23 use Carp;
  5         10  
  5         303  
6 5     5   90 use Path::Tiny;
  5         9  
  5         633  
7              
8             our $VERSION = "0.09";
9              
10             sub set_value {
11 26     26 1 44 my $self = shift;
12 26         59 my ($value) = @_;
13              
14 26         82 my $p = path($value);
15 26         764 return $p;
16             }
17              
18             1;
19             __END__