File Coverage

blib/lib/Log/Any/Proxy/Test.pm
Criterion Covered Total %
statement 16 16 100.0
branch n/a
condition n/a
subroutine 6 6 100.0
pod n/a
total 22 22 100.0


line stmt bran cond sub pod time code
1 11     11   157469 use 5.008001;
  11         33  
2 11     11   74 use strict;
  11         15  
  11         273  
3 11     11   36 use warnings;
  11         63  
  11         817  
4              
5             package Log::Any::Proxy::Test;
6              
7             our $VERSION = '1.718';
8              
9 11     11   370 use Log::Any::Proxy;
  11         16  
  11         760  
10             our @ISA = qw/Log::Any::Proxy/;
11              
12             my @test_methods = qw(
13             msgs
14             clear
15             contains_ok
16             category_contains_ok
17             does_not_contain_ok
18             category_does_not_contain_ok
19             empty_ok
20             contains_only_ok
21             );
22              
23             foreach my $name (@test_methods) {
24 11     11   46 no strict 'refs';
  11         19  
  11         1175  
25             *{$name} = sub {
26 41     41   14630 my $self = shift;
27 41         191 $self->{adapter}->$name(@_);
28             };
29             }
30              
31             1;
32              
33             __END__