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 10     10   181 use 5.008001;
  10         33  
2 10     10   52 use strict;
  10         19  
  10         240  
3 10     10   49 use warnings;
  10         23  
  10         548  
4              
5             package Log::Any::Proxy::Test;
6              
7             our $VERSION = '1.716';
8              
9 10     10   82 use Log::Any::Proxy;
  10         21  
  10         749  
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 10     10   76 no strict 'refs';
  10         26  
  10         1000  
25             *{$name} = sub {
26 41     41   13123 my $self = shift;
27 41         170 $self->{adapter}->$name(@_);
28             };
29             }
30              
31             1;
32              
33             __END__