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.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