File Coverage

blib/lib/Date/Time.pm
Criterion Covered Total %
statement 6 10 60.0
branch n/a
condition 0 3 0.0
subroutine 2 3 66.6
pod 0 1 0.0
total 8 17 47.0


line stmt bran cond sub pod time code
1             package Date::Time::UnixTime;
2              
3             # Some methods dealing with Unix timestamps are to be implemented here.
4              
5             1;
6              
7             package Date::Time;
8              
9 1     1   665 use strict;
  1         2  
  1         37  
10 1     1   135 use vars qw($VERSION @ISA @EXPORT @EXPORT_OK);
  1         2  
  1         367  
11              
12             require AutoLoader;
13              
14             @ISA = qw(AutoLoader);
15             $VERSION = '0.01';
16              
17             sub new {
18             # Class identification:
19 0   0 0 0   my $object_or_class = shift; my $class = ref($object_or_class) || $object_or_class;
  0            
20 0           my $self={}; bless $self, $class;
  0            
21              
22            
23             }
24              
25              
26             1;
27             __END__