File Coverage

lib/Getopt/ArgParse/ActionCount.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition 3 4 75.0
subroutine 4 4 100.0
pod 0 1 0.0
total 22 24 91.6


line stmt bran cond sub pod time code
1             package Getopt::ArgParse::ActionCount;
2              
3 9     9   678 use strict;
  9         9  
  9         233  
4 9     9   27 use warnings;
  9         9  
  9         141  
5 9     9   22 use Carp;
  9         6  
  9         908  
6              
7             sub apply {
8 4     4 0 17 my $self = shift;
9              
10 4         5 my ($spec, $namespace, $values) = @_;
11              
12 4   50     6 $values ||= [];
13              
14 4   100     6 my $v = $namespace->get_attr($spec->{dest}) || 0;
15              
16 4         8 $namespace->set_attr( $spec->{dest}, $v + scalar(@$values) );
17              
18 4         6 return '';
19             }
20              
21             1;
22              
23             =head1 AUTHOR
24              
25             Mytram (original author)
26              
27             =head1 COPYRIGHT AND LICENSE
28              
29             This software is Copyright (c) 2014 by Mytram.
30              
31             This is free software, licensed under:
32              
33             The Artistic License 2.0 (GPL Compatible)
34              
35             =cut