File Coverage

blib/lib/Lowu.pm
Criterion Covered Total %
statement 9 9 100.0
branch 2 2 100.0
condition n/a
subroutine 3 3 100.0
pod n/a
total 14 14 100.0


line stmt bran cond sub pod time code
1             package Lowu;
2             $Lowu::VERSION = '2.028002';
3 93     93   1270572 use strictures 2;
  93         103974  
  93         3048  
4              
5 93     93   47614 use parent 'List::Objects::WithUtils';
  93         21843  
  93         391  
6              
7             sub import {
8 93     93   1830 my ($class, @funcs) = @_;
9 93 100       2127 @funcs = 'all' unless @funcs;
10 93         1353 $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