File Coverage

blib/lib/Mail/LMLM/Object.pm
Criterion Covered Total %
statement 6 17 35.2
branch n/a
condition n/a
subroutine 2 6 33.3
pod 3 3 100.0
total 11 26 42.3


line stmt bran cond sub pod time code
1             package Mail::LMLM::Object;
2             $Mail::LMLM::Object::VERSION = '0.6807';
3 1     1   519 use strict;
  1         2  
  1         31  
4 1     1   5 use warnings;
  1         1  
  1         140  
5              
6             sub new
7             {
8 0     0 1   my $class = shift;
9 0           my $self = {};
10              
11 0           bless( $self, $class );
12              
13 0           $self->initialize(@_);
14              
15 0           return $self;
16             }
17              
18             sub initialize
19             {
20 0     0 1   my $self = shift;
21              
22 0           return 0;
23             }
24              
25             sub destroy_
26             {
27 0     0 1   my $self = shift;
28              
29 0           return 0;
30             }
31              
32             sub DESTROY
33             {
34 0     0     my $self = shift;
35              
36 0           $self->destroy_();
37             }
38              
39             1;
40              
41             __END__