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   197 use 5.008001;
  10         38  
2 10     10   49 use strict;
  10         20  
  10         239  
3 10     10   48 use warnings;
  10         18  
  10         556  
4              
5             package Log::Any::Proxy::Test;
6              
7             our $VERSION = '1.717';
8              
9 10     10   64 use Log::Any::Proxy;
  10         36  
  10         774  
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   66 no strict 'refs';
  10         25  
  10         1121  
25             *{$name} = sub {
26 41     41   13483 my $self = shift;
27 41         173 $self->{adapter}->$name(@_);
28             };
29             }
30              
31             1;
32              
33             __END__