Coverage Summary

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