File Coverage

lib/Lowu.pm
Criterion Covered Total %
statement 9 9 100.0
branch 1 2 50.0
condition n/a
subroutine 3 3 100.0
total 13 14 92.9


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