line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package List::oo; |
2
|
|
|
|
|
|
|
# auto-generated, do not edit |
3
|
|
|
|
|
|
|
|
4
|
|
|
|
|
|
|
=head1 NAME |
5
|
|
|
|
|
|
|
|
6
|
|
|
|
|
|
|
List::oo::Extras - auto-generated bits |
7
|
|
|
|
|
|
|
|
8
|
|
|
|
|
|
|
See L. |
9
|
|
|
|
|
|
|
|
10
|
|
|
|
|
|
|
=cut |
11
|
|
|
|
|
|
|
|
12
|
13
|
|
|
13
|
|
69
|
use warnings; |
|
13
|
|
|
|
|
22
|
|
|
13
|
|
|
|
|
410
|
|
13
|
13
|
|
|
13
|
|
64
|
use strict; |
|
13
|
|
|
|
|
25
|
|
|
13
|
|
|
|
|
414
|
|
14
|
13
|
|
|
13
|
|
81
|
use List::Util (); |
|
13
|
|
|
|
|
34
|
|
|
13
|
|
|
|
|
327
|
|
15
|
13
|
|
|
13
|
|
14346
|
use List::MoreUtils 0.21 (); |
|
13
|
|
|
|
|
19661
|
|
|
13
|
|
|
|
|
25977
|
|
16
|
|
|
|
|
|
|
|
17
|
|
|
|
|
|
|
# aliases |
18
|
0
|
|
|
0
|
1
|
0
|
sub each_arrayref {CORE::shift->meach_array(@_);} |
19
|
0
|
|
|
0
|
1
|
0
|
sub first_index {CORE::shift->firstidx(@_);} |
20
|
0
|
|
|
0
|
1
|
0
|
sub first_value {CORE::shift->firstval(@_);} |
21
|
0
|
|
|
0
|
1
|
0
|
sub last_index {CORE::shift->lastidx(@_);} |
22
|
0
|
|
|
0
|
1
|
0
|
sub last_value {CORE::shift->lastval(@_);} |
23
|
0
|
|
|
0
|
1
|
0
|
sub zip {CORE::shift->mesh(@_);} |
24
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
# methods |
26
|
|
|
|
|
|
|
sub after { |
27
|
0
|
|
|
0
|
1
|
0
|
my ($self, $block) = @_; |
28
|
0
|
|
|
|
|
0
|
return($self->new(&List::MoreUtils::after($block, @$self))); |
29
|
|
|
|
|
|
|
} |
30
|
|
|
|
|
|
|
sub after_incl { |
31
|
0
|
|
|
0
|
1
|
0
|
my ($self, $block) = @_; |
32
|
0
|
|
|
|
|
0
|
return($self->new(&List::MoreUtils::after_incl($block, @$self))); |
33
|
|
|
|
|
|
|
} |
34
|
|
|
|
|
|
|
sub all { |
35
|
0
|
|
|
0
|
1
|
0
|
my ($self, $block) = @_; |
36
|
0
|
|
|
|
|
0
|
return(&List::MoreUtils::all($block, @$self)); |
37
|
|
|
|
|
|
|
} |
38
|
|
|
|
|
|
|
sub any { |
39
|
0
|
|
|
0
|
1
|
0
|
my ($self, $block) = @_; |
40
|
0
|
|
|
|
|
0
|
return(&List::MoreUtils::any($block, @$self)); |
41
|
|
|
|
|
|
|
} |
42
|
|
|
|
|
|
|
sub apply { |
43
|
0
|
|
|
0
|
1
|
0
|
my ($self, $block) = @_; |
44
|
0
|
|
|
|
|
0
|
return($self->new(&List::MoreUtils::apply($block, @$self))); |
45
|
|
|
|
|
|
|
} |
46
|
|
|
|
|
|
|
sub before { |
47
|
0
|
|
|
0
|
1
|
0
|
my ($self, $block) = @_; |
48
|
0
|
|
|
|
|
0
|
return($self->new(&List::MoreUtils::before($block, @$self))); |
49
|
|
|
|
|
|
|
} |
50
|
|
|
|
|
|
|
sub before_incl { |
51
|
0
|
|
|
0
|
1
|
0
|
my ($self, $block) = @_; |
52
|
0
|
|
|
|
|
0
|
return($self->new(&List::MoreUtils::before_incl($block, @$self))); |
53
|
|
|
|
|
|
|
} |
54
|
|
|
|
|
|
|
sub each_array { |
55
|
1
|
|
|
1
|
1
|
6
|
my ($self, @list) = @_; |
56
|
1
|
|
|
|
|
20
|
return(&List::MoreUtils::each_array($self, \@list)); |
57
|
|
|
|
|
|
|
} |
58
|
|
|
|
|
|
|
sub false { |
59
|
0
|
|
|
0
|
1
|
0
|
my ($self, $block) = @_; |
60
|
0
|
|
|
|
|
0
|
return(&List::MoreUtils::false($block, @$self)); |
61
|
|
|
|
|
|
|
} |
62
|
|
|
|
|
|
|
sub first { |
63
|
0
|
|
|
0
|
1
|
0
|
my ($self, $block) = @_; |
64
|
0
|
|
|
|
|
0
|
return(&List::Util::first($block, @$self)); |
65
|
|
|
|
|
|
|
} |
66
|
|
|
|
|
|
|
sub firstidx { |
67
|
0
|
|
|
0
|
1
|
0
|
my ($self, $block) = @_; |
68
|
0
|
|
|
|
|
0
|
return(&List::MoreUtils::firstidx($block, @$self)); |
69
|
|
|
|
|
|
|
} |
70
|
|
|
|
|
|
|
sub firstval { |
71
|
0
|
|
|
0
|
1
|
0
|
my ($self, $block) = @_; |
72
|
0
|
|
|
|
|
0
|
return(&List::MoreUtils::firstval($block, @$self)); |
73
|
|
|
|
|
|
|
} |
74
|
|
|
|
|
|
|
sub indexes { |
75
|
0
|
|
|
0
|
1
|
0
|
my ($self, $block) = @_; |
76
|
0
|
|
|
|
|
0
|
return($self->new(&List::MoreUtils::indexes($block, @$self))); |
77
|
|
|
|
|
|
|
} |
78
|
|
|
|
|
|
|
sub insert_after { |
79
|
0
|
|
|
0
|
1
|
0
|
my ($self, $block, $var1) = @_; |
80
|
0
|
|
|
|
|
0
|
return($self->new(&List::MoreUtils::insert_after($block, $var1, $self))); |
81
|
|
|
|
|
|
|
} |
82
|
|
|
|
|
|
|
sub insert_after_string { |
83
|
0
|
|
|
0
|
1
|
0
|
my ($self, $var1, $var2) = @_; |
84
|
0
|
|
|
|
|
0
|
return($self->new(&List::MoreUtils::insert_after_string($var1, $var2, $self))); |
85
|
|
|
|
|
|
|
} |
86
|
|
|
|
|
|
|
sub lastidx { |
87
|
0
|
|
|
0
|
1
|
0
|
my ($self, $block) = @_; |
88
|
0
|
|
|
|
|
0
|
return(&List::MoreUtils::lastidx($block, @$self)); |
89
|
|
|
|
|
|
|
} |
90
|
|
|
|
|
|
|
sub lastval { |
91
|
0
|
|
|
0
|
1
|
0
|
my ($self, $block) = @_; |
92
|
0
|
|
|
|
|
0
|
return(&List::MoreUtils::lastval($block, @$self)); |
93
|
|
|
|
|
|
|
} |
94
|
|
|
|
|
|
|
sub max { |
95
|
0
|
|
|
0
|
1
|
0
|
my ($self) = @_; |
96
|
0
|
|
|
|
|
0
|
return(&List::Util::max(@$self)); |
97
|
|
|
|
|
|
|
} |
98
|
|
|
|
|
|
|
sub maxstr { |
99
|
0
|
|
|
0
|
1
|
0
|
my ($self) = @_; |
100
|
0
|
|
|
|
|
0
|
return(&List::Util::maxstr(@$self)); |
101
|
|
|
|
|
|
|
} |
102
|
|
|
|
|
|
|
sub mesh { |
103
|
1
|
|
|
1
|
1
|
11
|
my ($self, @list) = @_; |
104
|
1
|
|
|
|
|
16
|
return($self->new(&List::MoreUtils::mesh($self, \@list))); |
105
|
|
|
|
|
|
|
} |
106
|
|
|
|
|
|
|
sub min { |
107
|
0
|
|
|
0
|
1
|
0
|
my ($self) = @_; |
108
|
0
|
|
|
|
|
0
|
return(&List::Util::min(@$self)); |
109
|
|
|
|
|
|
|
} |
110
|
|
|
|
|
|
|
sub minmax { |
111
|
0
|
|
|
0
|
1
|
0
|
my ($self) = @_; |
112
|
0
|
|
|
|
|
0
|
return(&List::MoreUtils::minmax(@$self)); |
113
|
|
|
|
|
|
|
} |
114
|
|
|
|
|
|
|
sub minstr { |
115
|
0
|
|
|
0
|
1
|
0
|
my ($self) = @_; |
116
|
0
|
|
|
|
|
0
|
return(&List::Util::minstr(@$self)); |
117
|
|
|
|
|
|
|
} |
118
|
|
|
|
|
|
|
sub natatime { |
119
|
0
|
|
|
0
|
1
|
0
|
my ($self, $var1) = @_; |
120
|
0
|
|
|
|
|
0
|
return(&List::MoreUtils::natatime($var1, @$self)); |
121
|
|
|
|
|
|
|
} |
122
|
|
|
|
|
|
|
sub none { |
123
|
0
|
|
|
0
|
1
|
0
|
my ($self, $block) = @_; |
124
|
0
|
|
|
|
|
0
|
return(&List::MoreUtils::none($block, @$self)); |
125
|
|
|
|
|
|
|
} |
126
|
|
|
|
|
|
|
sub notall { |
127
|
0
|
|
|
0
|
1
|
0
|
my ($self, $block) = @_; |
128
|
0
|
|
|
|
|
0
|
return(&List::MoreUtils::notall($block, @$self)); |
129
|
|
|
|
|
|
|
} |
130
|
|
|
|
|
|
|
sub pairwise { |
131
|
0
|
|
|
0
|
1
|
0
|
my ($self, $block, @list) = @_; |
132
|
0
|
|
|
|
|
0
|
return($self->new(&List::MoreUtils::pairwise($block, $self, \@list))); |
133
|
|
|
|
|
|
|
} |
134
|
|
|
|
|
|
|
sub part { |
135
|
3
|
|
|
3
|
1
|
9
|
my ($self, $block) = @_; |
136
|
3
|
|
|
|
|
31
|
return(map({$self->new(@$_)} &List::MoreUtils::part($block, @$self))); |
|
9
|
|
|
|
|
69
|
|
137
|
|
|
|
|
|
|
} |
138
|
|
|
|
|
|
|
sub reduce { |
139
|
0
|
|
|
0
|
1
|
|
my ($self, $block) = @_; |
140
|
0
|
|
|
|
|
|
return(&List::Util::reduce($block, @$self)); |
141
|
|
|
|
|
|
|
} |
142
|
|
|
|
|
|
|
sub shuffle { |
143
|
0
|
|
|
0
|
1
|
|
my ($self) = @_; |
144
|
0
|
|
|
|
|
|
return($self->new(&List::Util::shuffle(@$self))); |
145
|
|
|
|
|
|
|
} |
146
|
|
|
|
|
|
|
sub sum { |
147
|
0
|
|
|
0
|
1
|
|
my ($self) = @_; |
148
|
0
|
|
|
|
|
|
return(&List::Util::sum(@$self)); |
149
|
|
|
|
|
|
|
} |
150
|
|
|
|
|
|
|
sub true { |
151
|
0
|
|
|
0
|
1
|
|
my ($self, $block) = @_; |
152
|
0
|
|
|
|
|
|
return(&List::MoreUtils::true($block, @$self)); |
153
|
|
|
|
|
|
|
} |
154
|
|
|
|
|
|
|
sub uniq { |
155
|
0
|
|
|
0
|
1
|
|
my ($self) = @_; |
156
|
0
|
|
|
|
|
|
return($self->new(&List::MoreUtils::uniq(@$self))); |
157
|
|
|
|
|
|
|
} |
158
|
|
|
|
|
|
|
|
159
|
|
|
|
|
|
|
1; |