File Coverage

blib/lib/ACME/YAPC/NA/2012.pm
Criterion Covered Total %
statement 13 17 76.4
branch n/a
condition n/a
subroutine 4 5 80.0
pod 2 2 100.0
total 19 24 79.1


line stmt bran cond sub pod time code
1             package ACME::YAPC::NA::2012;
2              
3 2     2   49600 use 5.006;
  2         8  
  2         74  
4 2     2   16 use strict;
  2         4  
  2         70  
5 2     2   9 use warnings;
  2         7  
  2         339  
6              
7             =head1 NAME
8              
9             ACME::YAPC::NA::2012 - Random test module for YAPC::NA tutorial
10              
11             =head1 VERSION
12              
13             Version 0.02_03
14              
15             =cut
16              
17             our $VERSION = '0.02_03';
18              
19              
20             =head1 SYNOPSIS
21              
22             Quick summary of what the module does.
23              
24             Perhaps a little code snippet.
25              
26             use ACME::YAPC::NA::2012;
27              
28             my $foo = ACME::YAPC::NA::2012->new();
29             ...
30              
31             =head1 EXPORT
32              
33             A list of functions that can be exported. You can delete this section
34             if you don't export anything, such as for a purely object-oriented module.
35              
36             =head1 SUBROUTINES/METHODS
37              
38             =head2 sum
39              
40             my $total = sum( @numbers );
41              
42             Returns the sum of all the numbers.
43              
44             =cut
45              
46             sub sum {
47 1     1 1 10 my (@numbers) = @_;
48              
49 1         3 my $total = 0;
50 1         5 $total += $_ for @numbers;
51 1         8 return $total;
52             }
53              
54             =head2 product
55              
56             my $product = product( @numbers );
57              
58             Returns the product of all the numbers;
59              
60             =cut
61              
62             sub product {
63 0     0 1   my (@numbers) = @_;
64              
65 0           my $product = 0;
66 0           $product += $_ for @numbers;
67 0           return $product;
68             }
69              
70             =head1 AUTHOR
71              
72             Jacinta Richardson, C<< >>
73              
74             =head1 BUGS
75              
76             Please report any bugs or feature requests to C, or through
77             the web interface at L. I will be notified, and then you'll
78             automatically be notified of progress on your bug as I make changes.
79              
80              
81              
82              
83             =head1 SUPPORT
84              
85             You can find documentation for this module with the perldoc command.
86              
87             perldoc ACME::YAPC::NA::2012
88              
89              
90             You can also look for information at:
91              
92             =over 4
93              
94             =item * RT: CPAN's request tracker (report bugs here)
95              
96             L
97              
98             =item * AnnoCPAN: Annotated CPAN documentation
99              
100             L
101              
102             =item * CPAN Ratings
103              
104             L
105              
106             =item * Search CPAN
107              
108             L
109              
110             =back
111              
112              
113             =head1 ACKNOWLEDGEMENTS
114              
115              
116             =head1 LICENSE AND COPYRIGHT
117              
118             Copyright 2012 Jacinta Richardson.
119              
120             This program is free software; you can redistribute it and/or modify it
121             under the terms of either: the GNU General Public License as published
122             by the Free Software Foundation; or the Artistic License.
123              
124             See http://dev.perl.org/licenses/ for more information.
125              
126              
127             =cut
128              
129             1; # End of ACME::YAPC::NA::2012