%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/share/doc/perl-Moose-2.1005/benchmarks/cmop/
Upload File :
Create Path :
Current File : //usr/share/doc/perl-Moose-2.1005/benchmarks/cmop/loading-benchmark.pl

#!/usr/bin/perl -w
use strict;
use Benchmark qw(:all);

my ( $count, $module ) = @ARGV;
$count  ||= 10;
$module ||= 'Moose';

my @blib
    = qw(-Iblib/lib -Iblib/arch -I../Moose/blib/lib -I../Moose/blib/arch -I../Moose/lib);

$| = 1;    # autoflush

print 'Installed: ';
system $^X, '-le', 'require Moose; print $INC{q{Moose.pm}}';

print 'Blead:     ';
system $^X, @blib, '-le', 'require Moose; print $INC{q{Moose.pm}}';

cmpthese timethese $count => {
    released => sub {
        system( $^X, '-e', "require $module" ) == 0 or die;
    },
    blead => sub {
        system( $^X, @blib, '-e', "require $module" ) == 0 or die;
    },
};

Zerion Mini Shell 1.0