line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
# |
2
|
|
|
|
|
|
|
# (c) Jan Gehring |
3
|
|
|
|
|
|
|
# |
4
|
|
|
|
|
|
|
|
5
|
|
|
|
|
|
|
package Rex::Shared::Var::Hash; |
6
|
|
|
|
|
|
|
|
7
|
20
|
|
|
20
|
|
256
|
use v5.12.5; |
|
20
|
|
|
|
|
68
|
|
8
|
20
|
|
|
20
|
|
102
|
use warnings; |
|
20
|
|
|
|
|
44
|
|
|
20
|
|
|
|
|
729
|
|
9
|
|
|
|
|
|
|
|
10
|
20
|
|
|
20
|
|
191
|
use Rex::Shared::Var::Common qw/__lock __store __retrieve/; |
|
20
|
|
|
|
|
69
|
|
|
20
|
|
|
|
|
12328
|
|
11
|
|
|
|
|
|
|
|
12
|
|
|
|
|
|
|
our $VERSION = '1.14.2.3'; # TRIAL VERSION |
13
|
|
|
|
|
|
|
|
14
|
|
|
|
|
|
|
sub TIEHASH { |
15
|
43
|
|
|
43
|
|
139
|
my $self = { varname => $_[1], }; |
16
|
43
|
|
|
|
|
203
|
bless $self, $_[0]; |
17
|
|
|
|
|
|
|
} |
18
|
|
|
|
|
|
|
|
19
|
|
|
|
|
|
|
sub STORE { |
20
|
45
|
|
|
45
|
|
117
|
my $self = shift; |
21
|
45
|
|
|
|
|
100
|
my $key = shift; |
22
|
45
|
|
|
|
|
76
|
my $value = shift; |
23
|
|
|
|
|
|
|
|
24
|
|
|
|
|
|
|
return __lock sub { |
25
|
45
|
|
|
45
|
|
169
|
my $ref = __retrieve; |
26
|
45
|
|
|
|
|
4335
|
my $ret = $ref->{ $self->{varname} }->{$key} = $value; |
27
|
45
|
|
|
|
|
160
|
__store $ref; |
28
|
|
|
|
|
|
|
|
29
|
45
|
|
|
|
|
41430
|
return $ret; |
30
|
45
|
|
|
|
|
418
|
}; |
31
|
|
|
|
|
|
|
} |
32
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
sub FETCH { |
34
|
164
|
|
|
164
|
|
9768
|
my $self = shift; |
35
|
164
|
|
|
|
|
261
|
my $key = shift; |
36
|
|
|
|
|
|
|
|
37
|
|
|
|
|
|
|
return __lock sub { |
38
|
164
|
|
|
164
|
|
494
|
my $ref = __retrieve; |
39
|
164
|
|
|
|
|
16401
|
return $ref->{ $self->{varname} }->{$key}; |
40
|
164
|
|
|
|
|
803
|
}; |
41
|
|
|
|
|
|
|
} |
42
|
|
|
|
|
|
|
|
43
|
|
|
|
|
|
|
sub DELETE { |
44
|
0
|
|
|
0
|
|
0
|
my $self = shift; |
45
|
0
|
|
|
|
|
0
|
my $key = shift; |
46
|
|
|
|
|
|
|
|
47
|
|
|
|
|
|
|
__lock sub { |
48
|
0
|
|
|
0
|
|
0
|
my $ref = __retrieve; |
49
|
0
|
|
|
|
|
0
|
delete $ref->{ $self->{varname} }->{$key}; |
50
|
0
|
|
|
|
|
0
|
__store $ref; |
51
|
0
|
|
|
|
|
0
|
}; |
52
|
|
|
|
|
|
|
} |
53
|
|
|
|
|
|
|
|
54
|
|
|
|
|
|
|
sub CLEAR { |
55
|
16
|
|
|
16
|
|
64
|
my $self = shift; |
56
|
|
|
|
|
|
|
|
57
|
|
|
|
|
|
|
__lock sub { |
58
|
16
|
|
|
16
|
|
120
|
my $ref = __retrieve; |
59
|
16
|
|
|
|
|
2688
|
$ref->{ $self->{varname} } = {}; |
60
|
16
|
|
|
|
|
77
|
__store $ref; |
61
|
16
|
|
|
|
|
442
|
}; |
62
|
|
|
|
|
|
|
} |
63
|
|
|
|
|
|
|
|
64
|
|
|
|
|
|
|
sub EXISTS { |
65
|
129
|
|
|
129
|
|
2957
|
my $self = shift; |
66
|
129
|
|
|
|
|
287
|
my $key = shift; |
67
|
|
|
|
|
|
|
|
68
|
|
|
|
|
|
|
return __lock sub { |
69
|
129
|
|
|
129
|
|
396
|
my $ref = __retrieve; |
70
|
129
|
|
|
|
|
13300
|
return exists $ref->{ $self->{varname} }->{$key}; |
71
|
129
|
|
|
|
|
605
|
}; |
72
|
|
|
|
|
|
|
} |
73
|
|
|
|
|
|
|
|
74
|
|
|
|
|
|
|
sub FIRSTKEY { |
75
|
48
|
|
|
48
|
|
27074
|
my $self = shift; |
76
|
|
|
|
|
|
|
|
77
|
|
|
|
|
|
|
return __lock sub { |
78
|
48
|
|
|
48
|
|
269
|
my $ref = __retrieve; |
79
|
48
|
|
|
|
|
7556
|
$self->{__iter__} = $ref->{ $self->{varname} }; |
80
|
|
|
|
|
|
|
|
81
|
48
|
|
|
|
|
156
|
my $temp = keys %{ $self->{__iter__} }; |
|
48
|
|
|
|
|
170
|
|
82
|
48
|
|
|
|
|
151
|
return scalar each %{ $self->{__iter__} }; |
|
48
|
|
|
|
|
391
|
|
83
|
48
|
|
|
|
|
737
|
}; |
84
|
|
|
|
|
|
|
} |
85
|
|
|
|
|
|
|
|
86
|
|
|
|
|
|
|
sub NEXTKEY { |
87
|
258
|
|
|
258
|
|
411
|
my $self = shift; |
88
|
258
|
|
|
|
|
355
|
my $prevkey = shift; |
89
|
|
|
|
|
|
|
|
90
|
258
|
|
|
|
|
361
|
return scalar each %{ $self->{__iter__} }; |
|
258
|
|
|
|
|
823
|
|
91
|
|
|
|
|
|
|
} |
92
|
|
|
|
|
|
|
|
93
|
|
|
|
|
|
|
1; |