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 8     8   160 use 5.008001;
  8         28  
3 8     8   44 use strict;
  8         10  
  8         161  
4 8     8   41 use warnings;
  8         11  
  8         217  
5 8     8   47 use Carp;
  8         31  
  8         464  
6 8     8   43 use Path::Tiny;
  8         16  
  8         1020  
7              
8             our $VERSION = "0.10";
9              
10             sub set_value {
11 34     34 1 62 my $self = shift;
12 34         68 my ($value) = @_;
13              
14 34         122 my $p = path($value);
15 34         1065 return $p;
16             }
17              
18             1;
19             __END__