File Coverage

blib/lib/Acme/Current.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package Acme::Current;
2 1     1   26445 use strict;
  1         2  
  1         40  
3              
4 1     1   5 use vars qw($VERSION);
  1         1  
  1         56  
5              
6 1     1   5 use vars qw($YEAR $MONTH $DAY);
  1         6  
  1         95  
7              
8             my @timearray = gmtime();
9              
10             $VERSION = sprintf "%04d%02d%02d", $YEAR = ($timearray[5]+1900), $MONTH = ($timearray[4]+1), $DAY = ($timearray[3]);
11              
12             1;
13              
14             __END__