File Coverage

lib/List/Objects/WithUtils/Hash.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
total 10 10 100.0


line stmt bran cond sub code
1         package List::Objects::WithUtils::Hash;
2 40     40 use strictures 1;
  40        
  40        
3          
4         require Role::Tiny;
5         Role::Tiny->apply_roles_to_package( __PACKAGE__,
6           'List::Objects::WithUtils::Role::Hash'
7         );
8          
9 40     40 use Exporter 'import';
  40        
  40        
10         our @EXPORT = 'hash';
11 24     24 sub hash { __PACKAGE__->new(@_) }
12          
13         print
14           qq[<mauke> die "bad meth"\n<nperez> die "better call saul"\n]
15         unless caller; 1;
16          
17         =pod
18        
19         =head1 NAME
20        
21         List::Objects::WithUtils::Hash - Hash-type objects WithUtils
22        
23         =head1 SYNOPSIS
24        
25         use List::Objects::WithUtils 'hash';
26        
27         my $hash = hash( foo => 'bar' );
28        
29         =head1 DESCRIPTION
30        
31         This class is the basic concrete implementation of
32         L<List::Objects::WithUtils::Role::Hash>. Methods are documented there.
33        
34         =head2 hash
35        
36         Creates a new hash object.
37        
38         =head1 AUTHOR
39        
40         Jon Portnoy <avenj@cobaltirc.org>
41        
42         Derived from L<Data::Perl> by Matt Phillips (CPAN: MATTP) et al
43        
44         Licensed under the same terms as Perl
45        
46         =cut
47