File Coverage

blib/lib/Data/Vitals/Underarm.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 14 14 100.0


line stmt bran cond sub pod time code
1             package Data::Vitals::Underarm;
2              
3             =pod
4              
5             =head1 NAME
6              
7             Data::Vitals::Underarm - A measurement of the circumference of the torso
8             underneath the arms
9              
10             =head1 INHERITANCE
11              
12             Data::Vitals::Circumference
13             `--> Data::Vitals::Underarm
14              
15             =head1 DESCRIPTION
16              
17             Data::Vitals::Underarm is part of the
18             L.
19              
20             It is a very simple class that allows you to create objects that represent a
21             single measurement of the circumference of the human torso taken underneath
22             the arms.
23              
24             In women, this is used along with L in one of the two
25             methods used to determine bra size, particularly nursing bras.
26              
27             =head2 Taking this Measurement
28              
29             The underarm measurement is generally taken with a tape measure around the
30             torso at a position just underneath the arms, while standing straight and
31             breathing normally. It should be as high as possible while still comfortable.
32             Do not agressively force the tape into the arm pits.
33              
34             More information and diagrams are available at
35             L.
36              
37             =head1 METHODS
38              
39             Data::Vitals::Underarm is implemented primarily in
40             L and shares all its methods.
41              
42             Data::Vitals::Underarm does not have any additional methods unique to it.
43              
44             =cut
45              
46 4     4   24205 use strict;
  4         8  
  4         147  
47 4     4   19 use base 'Data::Vitals::Circumference';
  4         6  
  4         1225  
48              
49 4     4   40 use vars qw{$VERSION};
  4         8  
  4         165  
50             BEGIN {
51 4     4   114 $VERSION = '0.05';
52             }
53              
54             1;
55              
56             =pod
57              
58             =head1 SUPPORT
59              
60             Bugs should always be reported via the CPAN bug tracker
61              
62             L
63              
64             For other issues, contact the maintainer.
65              
66             =head1 AUTHORS
67              
68             Adam Kennedy Eadamk@cpan.orgE
69              
70             =head1 ACKNOWLEGEMENTS
71              
72             Thank you to Phase N (L) for permitting
73             the open sourcing and release of this distribution.
74              
75             =head1 COPYRIGHT
76              
77             Copyright 2004 - 2008 Adam Kennedy.
78              
79             This program is free software; you can redistribute
80             it and/or modify it under the same terms as Perl itself.
81              
82             The full text of the license can be found in the
83             LICENSE file included with this module.
84              
85             =cut