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 26     26   474 use 5.008001;
  26         85  
3 26     26   128 use strict;
  26         40  
  26         521  
4 26     26   125 use warnings;
  26         50  
  26         672  
5 26     26   127 use Carp;
  26         56  
  26         3060  
6              
7             our $VERSION = "0.09";
8              
9             sub set_value {
10 142     142 1 241 my $self = shift;
11 142         269 my ($value) = @_;
12              
13 142         326 return $value;
14             }
15              
16             1;
17             __END__