File Coverage

blib/lib/Getopt/Kingpin/Type/Bool.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::Bool;
2 29     29   576 use 5.008001;
  29         106  
3 29     29   150 use strict;
  29         50  
  29         641  
4 29     29   135 use warnings;
  29         52  
  29         741  
5 29     29   157 use Carp;
  29         63  
  29         3743  
6              
7             our $VERSION = "0.10";
8              
9             sub set_value {
10 175     175 1 303 my $self = shift;
11 175         311 my ($value) = @_;
12              
13 175         415 return $value;
14             }
15              
16             1;
17             __END__