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   169 use 5.008001;
  8         29  
3 8     8   54 use strict;
  8         15  
  8         177  
4 8     8   37 use warnings;
  8         25  
  8         200  
5 8     8   40 use Carp;
  8         12  
  8         488  
6 8     8   55 use Path::Tiny;
  8         16  
  8         1086  
7              
8             our $VERSION = "0.11";
9              
10             sub set_value {
11 34     34 1 58 my $self = shift;
12 34         63 my ($value) = @_;
13              
14 34         101 my $p = path($value);
15 34         1410 return $p;
16             }
17              
18             1;
19             __END__