line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
1
|
|
|
|
|
|
|
package Lowu; |
2
|
|
|
|
|
|
|
$Lowu::VERSION = '2.027002'; |
3
|
90
|
|
|
90
|
|
1893210
|
use strictures 2; |
|
90
|
|
|
|
|
143844
|
|
|
90
|
|
|
|
|
4068
|
|
4
|
|
|
|
|
|
|
|
5
|
90
|
|
|
90
|
|
81519
|
use parent 'List::Objects::WithUtils'; |
|
90
|
|
|
|
|
27337
|
|
|
90
|
|
|
|
|
486
|
|
6
|
|
|
|
|
|
|
|
7
|
|
|
|
|
|
|
sub import { |
8
|
90
|
|
|
90
|
|
1723
|
my ($class, @funcs) = @_; |
9
|
90
|
100
|
|
|
|
2655
|
@funcs = 'all' unless @funcs; |
10
|
90
|
|
|
|
|
2013
|
$class->SUPER::import( |
11
|
|
|
|
|
|
|
+{ |
12
|
|
|
|
|
|
|
import => [ @funcs ], |
13
|
|
|
|
|
|
|
to => scalar(caller), |
14
|
|
|
|
|
|
|
} |
15
|
|
|
|
|
|
|
) |
16
|
|
|
|
|
|
|
} |
17
|
|
|
|
|
|
|
|
18
|
|
|
|
|
|
|
print |
19
|
|
|
|
|
|
|
qq[I'm not sorry, on account of all the typing I've saved myself ;-)\n] |
20
|
|
|
|
|
|
|
unless caller; |
21
|
|
|
|
|
|
|
1; |
22
|
|
|
|
|
|
|
|
23
|
|
|
|
|
|
|
=pod |
24
|
|
|
|
|
|
|
|
25
|
|
|
|
|
|
|
=for Pod::Coverage import |
26
|
|
|
|
|
|
|
|
27
|
|
|
|
|
|
|
=head1 NAME |
28
|
|
|
|
|
|
|
|
29
|
|
|
|
|
|
|
Lowu - Shortcut for importing all of List::Objects::WithUtils |
30
|
|
|
|
|
|
|
|
31
|
|
|
|
|
|
|
=head1 SYNOPSIS |
32
|
|
|
|
|
|
|
|
33
|
|
|
|
|
|
|
# Same as: |
34
|
|
|
|
|
|
|
# use List::Objects::WithUtils ':all'; |
35
|
|
|
|
|
|
|
use Lowu; |
36
|
|
|
|
|
|
|
|
37
|
|
|
|
|
|
|
=head1 DESCRIPTION |
38
|
|
|
|
|
|
|
|
39
|
|
|
|
|
|
|
A short-to-type way to get all of L, including |
40
|
|
|
|
|
|
|
autoboxing. |
41
|
|
|
|
|
|
|
|
42
|
|
|
|
|
|
|
If you like, you can specify params as if calling C |
43
|
|
|
|
|
|
|
List::Objects::WithUtils>: |
44
|
|
|
|
|
|
|
|
45
|
|
|
|
|
|
|
# Get array() and immarray() only: |
46
|
|
|
|
|
|
|
use Lowu 'array', 'immarray'; |
47
|
|
|
|
|
|
|
|
48
|
|
|
|
|
|
|
=head1 AUTHOR |
49
|
|
|
|
|
|
|
|
50
|
|
|
|
|
|
|
Jon Portnoy |
51
|
|
|
|
|
|
|
|
52
|
|
|
|
|
|
|
=cut |