OSDN Git Service
(root)
/
uclinux-h8
/
uClinux-dist.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
2013.10.24
[uclinux-h8/uClinux-dist.git]
/
lib
/
bitvector
/
examples
/
benchmk1.pl
1
#!/usr/local/bin/perl
2
3
use Benchmark;
4
5
sub init
6
{
7
delete $INC{'Carp.pm'};
8
delete $INC{'Exporter.pm'};
9
delete $INC{'overload.pm'};
10
delete $INC{'Bit/Vector/Overload.pm'};
11
delete $INC{'Bit/Vector.pm'};
12
delete $INC{'DynaLoader.pm'};
13
}
14
15
sub plain
16
{
17
init();
18
require Bit::Vector;
19
}
20
21
sub ovrld
22
{
23
init();
24
require Bit::Vector::Overload;
25
}
26
27
timethese
28
(
29
100,
30
{
31
plain => \&plain,
32
ovrld => \&ovrld
33
}
34
);
35
36
__END__
37