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   941 use strict;
  9         13  
  9         305  
4 9     9   40 use warnings;
  9         10  
  9         211  
5 9     9   36 use Carp;
  9         11  
  9         1254  
6              
7             sub apply {
8 4     4 0 20 my $self = shift;
9              
10 4         5 my ($spec, $namespace, $values) = @_;
11              
12 4   50     9 $values ||= [];
13              
14 4   100     7 my $v = $namespace->get_attr($spec->{dest}) || 0;
15              
16 4         13 $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