File Coverage

blib/lib/BitArray.pm
Criterion Covered Total %
statement 17 17 100.0
branch n/a
condition 1 3 33.3
subroutine 5 5 100.0
pod 0 1 0.0
total 23 26 88.4


line stmt bran cond sub pod time code
1            
2             package BitArray;
3 1     1   39537 use strict;
  1         2  
  1         56  
4            
5             BEGIN {
6 1     1   7 use Exporter ();
  1         2  
  1         25  
7 1     1   6 use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
  1         8  
  1         131  
8 1     1   1 $VERSION = 0.01;
9 1         16 @ISA = qw (Exporter);
10             #Give a hoot don't pollute, do not export more than needed by default
11 1         2 @EXPORT = qw ();
12 1         2 @EXPORT_OK = qw ();
13 1         187 %EXPORT_TAGS = ();
14             }
15            
16            
17             ########################################### main pod documentation begin ##
18             # Below is the stub of documentation for your module. You better edit it!
19            
20            
21             =head1 NAME
22            
23             BitArray -
24            
25             =head1 SYNOPSIS
26            
27             use BitArray
28             blah blah blah
29            
30            
31             =head1 DESCRIPTION
32            
33             Stub documentation for this module was created by ExtUtils::ModuleMaker.
34             It looks like the author of the extension was negligent enough
35             to leave the stub unedited.
36            
37             Blah blah blah.
38            
39            
40             =head1 USAGE
41            
42            
43            
44             =head1 BUGS
45            
46            
47            
48             =head1 SUPPORT
49            
50            
51            
52             =head1 AUTHOR
53            
54             A. U. Thor
55             a.u.thor@a.galaxy.far.far.away
56             http://a.galaxy.far.far.away/modules
57            
58             =head1 COPYRIGHT
59            
60             This program is free software licensed under the...
61            
62             The BSD License
63            
64             The full text of the license can be found in the
65             LICENSE file included with this module.
66            
67            
68             =head1 SEE ALSO
69            
70             perl(1).
71            
72             =cut
73            
74             ############################################# main pod documentation end ##
75            
76            
77             ################################################ subroutine header begin ##
78            
79             =head2 sample_function
80            
81             Usage : How to use this function/method
82             Purpose : What it does
83             Returns : What it returns
84             Argument : What it wants to know
85             Throws : Exceptions and other anomolies
86             Comments : This is a sample subroutine header.
87             : It is polite to include more pod and fewer comments.
88            
89             See Also :
90            
91             =cut
92            
93             ################################################## subroutine header end ##
94            
95            
96             sub new
97             {
98 1     1 0 11 my ($class, %parameters) = @_;
99            
100 1   33     7 my $self = bless ({}, ref ($class) || $class);
101            
102 1         4 return ($self);
103             }
104            
105            
106             1; #this line is important and will help the module return a true value
107             __END__