File Coverage

blib/lib/Data/Ovulation/Result.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod n/a
total 20 20 100.0


line stmt bran cond sub pod time code
1             package Data::Ovulation::Result;
2              
3 4     4   21 use strict;
  4         9  
  4         133  
4 4     4   20 use warnings;
  4         8  
  4         90  
5              
6 4     4   87 use 5.008;
  4         15  
  4         150  
7              
8 4     4   23 use Carp;
  4         7  
  4         256  
9 4     4   23 use base 'Class::Accessor';
  4         7  
  4         4102  
10              
11             __PACKAGE__->mk_accessors( qw/ day_rise cover_temperature impregnation ovulation_days fertile_days min max / );
12              
13             =head1 NAME
14              
15             Data::Ovulation::Result - Result class for Data::Ovulation
16              
17             =head1 VERSION
18              
19             Version 0.01
20              
21             =cut
22              
23             our $VERSION = '0.01';
24              
25             =head1 SYNOPSIS
26              
27             See L.
28              
29             =head1 DESCRIPTION
30              
31             See L.
32              
33             =head1 SUBROUTINES/METHODS
34              
35             =head2 C
36              
37             Returns the first day on which the temperature rises. This indicates an ovulation.
38              
39             =head2 C
40              
41             Returns an arrayref of days on which an ovulation is likely to have occured.
42              
43             =head2 C
44              
45             Returns an arrayref of days with high fertility.
46              
47             =head2 C
48              
49             Returns the "cover" temperature. This is the highest one of the six temperature
50             values prior to the ovulation day.
51              
52             =head2 C
53              
54             Returns true if an impregnation is likely to have occured.
55              
56             =head2 C
57              
58             Returns the lowest temperature value.
59              
60             =head2 C
61              
62             Returns the highest temperature value.
63              
64             =head1 AUTHOR
65              
66             Tobias Kremer, C<< >>
67              
68             =head1 COPYRIGHT & LICENSE
69              
70             Copyright 2007 Tobias Kremer, all rights reserved.
71              
72             This program is free software; you can redistribute it and/or modify it
73             under the same terms as Perl itself.
74              
75             =cut
76              
77             1;