File Coverage

blib/lib/MooX/Role/HasLogger/Types.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 16 16 100.0


line stmt bran cond sub pod time code
1             #<<<
2 7     7   402401 use strict; use warnings;
  7     7   26  
  7         211  
  7         39  
  7         18  
  7         420  
3             #>>>
4              
5             package MooX::Role::HasLogger::Types;
6              
7             our $VERSION = '0.002';
8              
9 7     7   2917 use Type::Library qw( -base );
  7         194776  
  7         65  
10 7     7   5270 use Type::Tiny::Duck qw();
  7         21139  
  7         694  
11              
12             my $Logger = __PACKAGE__->add_type(
13             Type::Tiny::Duck->new(
14             name => 'Logger',
15             methods => [ qw( is_trace trace is_debug debug is_info info is_warn warn is_error error is_fatal fatal ) ]
16             ),
17             );
18              
19             __PACKAGE__->add_type(
20             Type::Tiny::Duck->new(
21             name => 'LoggerAny',
22             methods => [ @{ $Logger->methods }, qw( category tracef debugf infof warnf errorf fatalf ) ]
23             ),
24             );
25              
26             __PACKAGE__->make_immutable;
27              
28             1;