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