File Coverage

blib/lib/Dunce/time/Zerofill.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch	2	2	100.0
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	23	23	100.0

package Dunce::time::Zerofill;

use strict;
use vars qw($VERSION);
$VERSION = '0.02';

sub import {
    my($class, $digit) = @_;
    $digit = 10 unless defined $digit;
    my $caller = caller;
    {
	no strict 'refs';
	*{$caller.'::time'} = sub {
	    return sprintf '%' . $digit . 'd', time;
	};
    }
}

1;

__END__