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   188 use 5.008001;
  10         34  
2 10     10   50 use strict;
  10         19  
  10         244  
3 10     10   47 use warnings;
  10         18  
  10         566  
4              
5             package Log::Any::Proxy::Test;
6              
7             our $VERSION = '1.715';
8              
9 10     10   77 use Log::Any::Proxy;
  10         17  
  10         762  
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   64 no strict 'refs';
  10         28  
  10         1027  
25             *{$name} = sub {
26 41     41   11829 my $self = shift;
27 41         153 $self->{adapter}->$name(@_);
28             };
29             }
30              
31             1;
32              
33             __END__