1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
#!/usr/bin/perl -w
=head1 NAME
bench_operator_storage.pl - Look at different ways of storing operators and how to call them
=cut
use strict;
use Benchmark qw(cmpthese timethese);
use CGI::Ex::Dump qw(debug);
use constant skip_execute => 1;
my $total_size = eval { require Devel::Size } ? sub { Devel::Size::total_size($_[0]) } : sub { "Skip Devel::Size check" };
###----------------------------------------------------------------###
### check basic setting speed - almost irrelvant as we are in the 300_000's
my $set_w_ref = sub { my $s = [ \ [ '+', 4, 5], 0] };
my $set_undef = sub { my $s = [ [undef, '+', 4, 5], 0] };
my $set_array = sub { my $s = [ [[ '+', 4, 5]], 0] };
my $set_arra2 = sub { my $s = [ [[], '+', 4, 5], 0] };
my $set_bless = sub { my $s = [ bless([ '+', 4, 5],'CGI::Ex::Template::Op::foo'), 0] };
print "Set_w_ref size: ". $total_size->($set_w_ref->()) ."\n";
print "Set_undef size: ". $total_size->($set_undef->()) ."\n";
print "Set_array size: ". $total_size->($set_array->()) ."\n";
print "Set_arra2 size: ". $total_size->($set_arra2->()) ."\n";
print "Set_bless size: ". $total_size->($set_bless->()) ."\n";
cmpthese timethese -1, {
set_w_ref => $set_w_ref,
set_undef => $set_undef,
set_array => $set_array,
set_arra2 => $set_arra2,
set_bless => $set_bless,
};
###----------------------------------------------------------------###
### time basic variable checking
my $check_w_ref = sub {
my $s = shift;
if (ref $s eq 'REF') {
$s = $$s->[0] eq '..' ? 1 : 2;
} else {
$s = 0;
}
};
my $check_undef = sub {
my $s = shift;
if (! defined $s->[0]) {
$s = $s->[1] eq '..' ? 1 : 2;
} else {
$s = 0;
}
};
cmpthese timethese -1, {
w_ref_pos => sub { $check_w_ref->(\ ['+', 4, 5]) },
w_ref_dots => sub { $check_w_ref->(\ ['..', 4, 5]) },
w_ref_neg => sub { $check_w_ref->(['a', 0]) },
undef_pos => sub { $check_undef->([undef, '+', 4, 5]) },
undef_dots => sub { $check_undef->([undef, '..', 4, 5]) },
undef_neg => sub { $check_undef->(['a', 0]) },
};
###----------------------------------------------------------------###
### check for calling speed
my $play_w_ref = sub {
my $tree = shift;
my $op = $tree->[0];
my @args = ($tree->[1], $tree->[2]);
};
my $play_undef = sub {
my $tree = shift;
my $op = $tree->[1];
my @args = ($tree->[2], $tree->[3]);
};
my $play_undef2 = sub {
my $op = shift;
my @args = @_;
};
my $call_w_ref = sub {
my $s = shift;
return $play_w_ref->($$s);
};
my $call_undef = sub {
my $s = shift;
return $play_undef->($s);
};
my $call_undef2 = sub {
my $s = shift;
return $play_undef2->(@$s[1..$#$s]);
};
cmpthese timethese -1, {
small_w_ref => sub { $call_w_ref->(\ ['~', 1 .. 2]) },
med___w_ref => sub { $call_w_ref->(\ ['~', 1 .. 200]) },
large_w_ref => sub { $call_w_ref->(\ ['~', 1 .. 2000]) },
small_undef => sub { $call_undef->([undef, '~', 1 .. 2]) },
med___undef => sub { $call_undef->([undef, '~', 1 .. 200]) },
large_undef => sub { $call_undef->([undef, '~', 1 .. 2000]) },
small_undef2 => sub { $call_undef2->([undef, '~', 1 .. 2]) },
med___undef2 => sub { $call_undef2->([undef, '~', 1 .. 200]) },
large_undef2 => sub { $call_undef2->([undef, '~', 1 .. 2000]) },
};
|
