Re^3: Compile Phase Time

in reply to Re^2: Compile Phase Time
in thread Compile Phase Time

Yes, but it doesn't really matter , whole exercise is silly. This version won't, but it will fail at loading Moose twice (or after moo)

#!/usr/bin/perl --
use strict; use warnings;
use Module::Load ;
use Time::HiRes qw/ time /;

@ARGV or @ARGV = qw/ CGI B::Deparse DBI DBD::SQLite Moose Moo /;

for my $mod( @ARGV ){
    my $tb = time;
    
    {
        local $SIG{__WARN__} = sub{};
        undef %INC;
        load( $mod );
    }
    
    my $ta = time;
    printf "%.5f - %.5f = %.5f %s\n",
            $ta, $tb,  $ta - $tb, $mod;
}
__END__
$ perl fudge Moose Moo CGI CGI CGI CGI
1366466283.45313 - 1366466282.70313 = 0.75000 Moose
1366466283.52620 - 1366466283.45344 = 0.07276 Moo
1366466283.63069 - 1366466283.52631 = 0.10438 CGI
1366466283.73354 - 1366466283.63081 = 0.10273 CGI
1366466283.83594 - 1366466283.73366 = 0.10228 CGI
1366466283.93854 - 1366466283.83606 = 0.10247 CGI
[download]

In Section Seekers of Perl Wisdom