File Coverage

blib/lib/Statistics/Robust.pm
Criterion Covered Total %
statement 14 18 77.7
branch 0 2 0.0
condition n/a
subroutine 4 5 80.0
pod n/a
total 18 25 72.0


line stmt bran cond sub pod time code
1             package Statistics::Robust;
2              
3 3     3   30963 use warnings;
  3         7  
  3         98  
4 3     3   17 use strict;
  3         6  
  3         102  
5              
6 3     3   16 use base 'Exporter';
  3         8  
  3         715  
7              
8             sub
9             _min
10             {
11 0     0   0 my($x,$y) = @_;
12              
13 0 0       0 if( $x <= $y )
14             {
15 0         0 return $x;
16             }
17             else
18             {
19 0         0 return $y;
20             }
21             }
22              
23             sub
24             _sum
25             {
26 5     5   10 my($x) = @_;
27              
28 5         8 my $sum = 0;
29 5         14 foreach my $val (@$x)
30             {
31 85         121 $sum += $val;
32             }
33              
34 5         21 return $sum;
35             }
36              
37             1;
38              
39             =head1 NAME
40              
41             Statistics::Robust - A Collection of Robust Statistical Methods
42              
43             =head1 VERSION
44              
45             Version 0.02
46              
47             =cut
48              
49             our $VERSION = '0.02';
50              
51             =head1 SYNOPSIS
52              
53             use Statistics::Robust;
54              
55             =head1 AUTHOR
56              
57             Walter Szeliga, C<< >>
58              
59             =head1 BUGS
60              
61             Please report any bugs or feature requests to C, or through
62             the web interface at L. I will be notified, and then you'll
63             automatically be notified of progress on your bug as I make changes.
64              
65             =head1 SUPPORT
66              
67             You can find documentation for this module with the perldoc command.
68              
69             perldoc Statistics::Robust
70              
71              
72             You can also look for information at:
73              
74             =over 4
75              
76             =item * RT: CPAN's request tracker
77              
78             L
79              
80             =item * AnnoCPAN: Annotated CPAN documentation
81              
82             L
83              
84             =item * CPAN Ratings
85              
86             L
87              
88             =item * Search CPAN
89              
90             L
91              
92             =back
93              
94              
95             =head1 ACKNOWLEDGEMENTS
96              
97              
98             =head1 COPYRIGHT & LICENSE
99              
100             Copyright 2008 Walter Szeliga, all rights reserved.
101              
102             This program is free software; you can redistribute it and/or modify it
103             under the same terms as Perl itself.
104              
105              
106             =cut
107              
108             1; # End of Statistics::Robust