File Coverage

blib/lib/Log/Any/Adapter.pm
Criterion Covered Total %
statement 17 19 89.4
branch 2 2 100.0
condition n/a
subroutine 7 8 87.5
pod 3 3 100.0
total 29 32 90.6


line stmt bran cond sub pod time code
1 16     16   1336217 use 5.008001;
  16         52  
2 16     16   75 use strict;
  16         49  
  16         365  
3 16     16   63 use warnings;
  16         46  
  16         1256  
4              
5             package Log::Any::Adapter;
6              
7             # ABSTRACT: Tell Log::Any where to send its logs
8             our $VERSION = '1.719';
9              
10 16     16   3148 use Log::Any;
  16         30  
  16         90  
11             our @CARP_NOT = ( 'Log::Any::Manager' );
12              
13             sub import {
14 12     12   77 my $pkg = shift;
15 12 100       2621 Log::Any->_manager->set(@_) if (@_);
16             }
17              
18             sub set {
19 40     40 1 831276 my $pkg = shift;
20 40         178 Log::Any->_manager->set(@_)
21             }
22              
23             sub remove {
24 2     2 1 3 my $pkg = shift;
25 2         7 Log::Any->_manager->remove(@_)
26             }
27              
28             sub get {
29 0     0 1   my $pkg = shift;
30 0           Log::Any->_manager->get_adapter(@_);
31             }
32              
33             1;
34              
35             __END__