system: Linux mars.sprixweb.com 3.10.0-1160.119.1.el7.x86_64 #1 SMP Tue Jun 4 14:43:51 UTC 2024 x86_64
cmd:
Direktori : /usr/share/doc/perl-Bit-Vector-7.3/examples/
Upload File :
Current File : //usr/share/doc/perl-Bit-Vector-7.3/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__