File Coverage

blib/lib/Debug/Phases.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	33	34	97.0

package Debug::Phases;

use version; $VERSION = qv('0.0.2');

use warnings;
use strict;
use Carp;
use Time::HiRes qw(time);

my $start;

BEGIN {
    $start = time();
    print {*STDERR} "Compiling..."
}

INIT {
    my $delta = sprintf '%.2f', time()-$start;
    print {*STDERR} "$delta second";
    print {*STDERR} 's' if $delta != 1;
    print {*STDERR} "\nRunning...\n"
}

1; # Magic true value required at end of module
__END__