File Coverage

blib/lib/List/oo/Extras.pm
Criterion Covered Total %
statement 19 85 22.3
branch n/a
condition n/a
subroutine 7 43 16.2
pod 39 39 100.0
total 65 167 38.9


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;