File Coverage

blib/lib/Getopt/Kingpin/Type/String.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Getopt::Kingpin::Type::String;
2 18     18   295 use 5.008001;
  18         61  
3 18     18   85 use strict;
  18         27  
  18         323  
4 18     18   75 use warnings;
  18         41  
  18         425  
5 18     18   89 use Carp;
  18         48  
  18         1996  
6              
7             our $VERSION = "0.09";
8              
9             sub set_value {
10 58     58 1 101 my $self = shift;
11 58         106 my ($value) = @_;
12              
13 58         152 return $value;
14             }
15              
16             1;
17             __END__