File Coverage

blib/lib/Data/Vitals/Chest.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::Chest;
2              
3             =pod
4              
5             =head1 NAME
6              
7             Data::Vitals::Chest - A measurement of the circumference of the torso at the
8             chest/bust
9              
10             =head1 INHERITANCE
11              
12             Data::Vitals::Circumference
13             `--> Data::Vitals::Chest
14              
15             =head1 DESCRIPTION
16              
17             Data::Vitals::Chest 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 at the chest.
22              
23             In women, this measurement is also known as the "bust" measurement, and is
24             a component of the equation used to determine bra size.
25              
26             =head2 Taking this Measurement
27              
28             The chest measurement is taken with a tape measure around the torso,
29             with the tape loose, but just tight enough to avoid the tape falling.
30              
31             The measurement should be taken at the largest point, and includes the
32             breast. In both men and women this usually means taking the measurement so
33             that the tape runs over the nippples.
34              
35             More information and diagrams are available at
36             L.
37              
38             =head1 METHODS
39              
40             Data::Vitals::Chest is implemented primarily in
41             L and shares all its methods.
42              
43             Data::Vitals::Chest does not have any additional methods unique to it.
44              
45             =cut
46              
47 4     4   22042 use strict;
  4         7  
  4         217  
48 4     4   90 use base 'Data::Vitals::Circumference';
  4         7  
  4         843  
49              
50 4     4   18 use vars qw{$VERSION};
  4         7  
  4         165  
51             BEGIN {
52 4     4   110 $VERSION = '0.05';
53             }
54              
55             1;
56              
57             =pod
58              
59             =head1 SUPPORT
60              
61             Bugs should always be reported via the CPAN bug tracker
62              
63             L
64              
65             For other issues, contact the maintainer.
66              
67             =head1 AUTHORS
68              
69             Adam Kennedy Eadamk@cpan.orgE
70              
71             =head1 ACKNOWLEGEMENTS
72              
73             Thank you to Phase N (L) for permitting
74             the open sourcing and release of this distribution.
75              
76             =head1 COPYRIGHT
77              
78             Copyright 2004 - 2008 Adam Kennedy.
79              
80             This program is free software; you can redistribute
81             it and/or modify it under the same terms as Perl itself.
82              
83             The full text of the license can be found in the
84             LICENSE file included with this module.
85              
86             =cut