File Coverage

blib/lib/Acme/TOMOYAMA/Utils.pm
Criterion Covered Total %
statement 8 13 61.5
branch n/a
condition n/a
subroutine 3 4 75.0
pod 1 1 100.0
total 12 18 66.6


line stmt bran cond sub pod time code
1             package Acme::TOMOYAMA::Utils;
2              
3 1     1   56375 use 5.006;
  1         3  
4 1     1   4 use strict;
  1         1  
  1         15  
5 1     1   4 use warnings;
  1         1  
  1         116  
6              
7             =head1 NAME
8              
9             Acme::TOMOYAMA::Utils - The great new Acme::TOMOYAMA::Utils!
10              
11             =head1 VERSION
12              
13             Version 0.01
14              
15             =cut
16              
17             our $VERSION = '0.011';
18              
19              
20             =head1 SYNOPSIS
21              
22             Intermediate Perl sec. 21.9 practice 3
23              
24             =head1 EXPORT
25              
26             A list of functions that can be exported. You can delete this section
27             if you don't export anything, such as for a purely object-oriented module.
28              
29             =head1 SUBROUTINES/METHODS
30              
31             =head2 sum
32             it sums the arguments up
33             =cut
34              
35             sub sum {
36 0     0 1   my $sum;
37 0           foreach my $num (grep {/\A-?\d+\.*\d*\z/} @_) {
  0            
38 0           $sum += $num;
39             }
40 0           $sum;
41             }
42              
43              
44              
45             =head1 AUTHOR
46              
47             Tomohiro Yamashita, C<< >>
48              
49             =head1 BUGS
50              
51             Please report any bugs or feature requests to C, or through
52             the web interface at L. I will be notified, and then you'll
53             automatically be notified of progress on your bug as I make changes.
54              
55              
56              
57              
58             =head1 SUPPORT
59              
60             You can find documentation for this module with the perldoc command.
61              
62             perldoc Acme::TOMOYAMA::Utils
63              
64              
65             You can also look for information at:
66              
67             =over 4
68              
69             =item * RT: CPAN's request tracker (report bugs here)
70              
71             L
72              
73             =item * CPAN Ratings
74              
75             L
76              
77             =item * Search CPAN
78              
79             L
80              
81             =back
82              
83              
84             =head1 ACKNOWLEDGEMENTS
85              
86              
87             =head1 LICENSE AND COPYRIGHT
88              
89             This software is Copyright (c) 2020 by Tomohiro Yamashita.
90              
91             This is free software, licensed under:
92              
93             The Artistic License 2.0 (GPL Compatible)
94              
95              
96             =cut
97              
98             1; # End of Acme::TOMOYAMA::Utils