File Coverage

blib/lib/timelocal.pl
Criterion Covered Total %
statement 3 3 100.0
branch n/a
condition n/a
subroutine 1 1 100.0
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             ;# timelocal.pl
2             ;#
3             ;# Usage:
4             ;# $time = timelocal($sec,$min,$hours,$mday,$mon,$year);
5             ;# $time = timegm($sec,$min,$hours,$mday,$mon,$year);
6              
7             ;# This file has been superseded by the Time::Local library module.
8             ;# It is implemented as a call to that module for backwards compatibility
9             ;# with code written for perl4; new code should use Time::Local directly.
10              
11             ;# The current implementation shares with the original the questionable
12             ;# behavior of defining the timelocal() and timegm() functions in the
13             ;# namespace of whatever package was current when the first instance of
14             ;# C was executed in a program.
15              
16 1     1   1537 use Time::Local;
  1         1588  
  1         65  
17              
18             *timelocal::cheat = \&Time::Local::cheat;