File Coverage

blib/lib/Data/Vitals/Hips.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::Hips;
2              
3             =pod
4              
5             =head1 NAME
6              
7             Data::Vitals::Hips - A measurement of the circumference of the hips
8              
9             =head1 INHERITANCE
10              
11             Data::Vitals::Circumference
12             `--> Data::Vitals::Hips
13              
14             =head1 DESCRIPTION
15              
16             Data::Vitals::Hips is part of the
17             L.
18              
19             It is a very simple class that allows you to create objects that represent a
20             single measurement of the circumference of the hips.
21              
22             Please note that this measurement does B refer to the "high hips"
23             measurement. This is a different value, for which a class does not yet exist.
24              
25             =head2 Taking this Measurement
26              
27             Place the measuring tape around the body at the fullest part of the seat.
28             Pull the measuring tape so it conforms to the body and does not fall down,
29             but do not pull it tight.
30              
31             More information and diagrams are available at
32             L.
33              
34             =head1 METHODS
35              
36             Data::Vitals::Hips is implemented primarily in
37             L and shares all its methods.
38              
39             Data::Vitals::Hips does not have any additional methods unique to it.
40              
41             =cut
42              
43 4     4   30122 use strict;
  4         7  
  4         151  
44 4     4   21 use base 'Data::Vitals::Circumference';
  4         8  
  4         1033  
45              
46 4     4   25 use vars qw{$VERSION};
  4         34  
  4         177  
47             BEGIN {
48 4     4   112 $VERSION = '0.05';
49             }
50              
51             1;
52              
53             =pod
54              
55             =head1 SUPPORT
56              
57             Bugs should always be reported via the CPAN bug tracker
58              
59             L
60              
61             For other issues, contact the maintainer.
62              
63             =head1 AUTHORS
64              
65             Adam Kennedy Eadamk@cpan.orgE
66              
67             =head1 ACKNOWLEGEMENTS
68              
69             Thank you to Phase N (L) for permitting
70             the open sourcing and release of this distribution.
71              
72             =head1 COPYRIGHT
73              
74             Copyright 2004 - 2008 Adam Kennedy.
75              
76             This program is free software; you can redistribute
77             it and/or modify it under the same terms as Perl itself.
78              
79             The full text of the license can be found in the
80             LICENSE file included with this module.
81              
82             =cut