%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /proc/309157/task/309157/root/usr/share/doc/libbit-vector-perl/examples/
Upload File :
Create Path :
Current File : //proc/309157/task/309157/root/usr/share/doc/libbit-vector-perl/examples/benchmk1.pl

#!/usr/bin/perl

use Benchmark;

sub init
{
    delete $INC{'Carp.pm'};
    delete $INC{'Exporter.pm'};
    delete $INC{'overload.pm'};
    delete $INC{'Bit/Vector/Overload.pm'};
    delete $INC{'Bit/Vector.pm'};
    delete $INC{'DynaLoader.pm'};
}

sub plain
{
    init();
    require Bit::Vector;
}

sub ovrld
{
    init();
    require Bit::Vector::Overload;
}

timethese
(
    100,
    {
        plain => \&plain,
        ovrld => \&ovrld
    }
);

__END__

Zerion Mini Shell 1.0