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   959953 use 5.008001;
  16         46  
2 16     16   74 use strict;
  16         55  
  16         446  
3 16     16   65 use warnings;
  16         24  
  16         1251  
4              
5             package Log::Any::Adapter;
6              
7             # ABSTRACT: Tell Log::Any where to send its logs
8             our $VERSION = '1.720';
9              
10 16     16   2642 use Log::Any;
  16         29  
  16         117  
11             our @CARP_NOT = ( 'Log::Any::Manager' );
12              
13             sub import {
14 12     12   66 my $pkg = shift;
15 12 100       2445 Log::Any->_manager->set(@_) if (@_);
16             }
17              
18             sub set {
19 40     40 1 674068 my $pkg = shift;
20 40         145 Log::Any->_manager->set(@_)
21             }
22              
23             sub remove {
24 2     2 1 3 my $pkg = shift;
25 2         9 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__