File Coverage

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