in reply to Compile Phase Time

Meh

#!/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 Moo Moose /;

for my $mod( @ARGV ){
    my $tb = time;
    load( $mod );
    my $ta = time;
    printf "%.5f - %.5f = %.5f %s\n",
            $ta, $tb,  $ta - $tb, $mod;
}
__END__
1366428845.98106 - 1366428845.76563 = 0.21544 CGI
1366428846.11275 - 1366428845.98131 = 0.13144 B::Deparse
1366428846.15868 - 1366428846.11287 = 0.04581 DBI
1366428846.17056 - 1366428846.15895 = 0.01161 DBD::SQLite
1366428846.20396 - 1366428846.17067 = 0.03329 Moo
1366428846.71875 - 1366428846.20407 = 0.51468 Moose

[download]

Replies are listed 'Best First'.
Re^2: Compile Phase Time
by eye (Chaplain) on Apr 20, 2013 at 12:51 UTC
    Will this approach underestimate load times for modules later in the list when they share dependencies with modules earlier in the list?
[reply]

      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]
[reply]
[d/l]
        Thank you folks for the valuable info. I really appreciate it.
[reply]
        With every run this code returns a different result with the difference being between .1 - .2 s Any ideas why ?
[reply]

In Section Seekers of Perl Wisdom