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