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 14     14   296206 use 5.008001;
  14         119  
2 14     14   87 use strict;
  14         33  
  14         389  
3 14     14   68 use warnings;
  14         27  
  14         802  
4              
5             package Log::Any::Adapter;
6              
7             # ABSTRACT: Tell Log::Any where to send its logs
8             our $VERSION = '1.717';
9              
10 14     14   2782 use Log::Any;
  14         27  
  14         68  
11             our @CARP_NOT = ( 'Log::Any::Manager' );
12              
13             sub import {
14 11     11   79 my $pkg = shift;
15 11 100       3121 Log::Any->_manager->set(@_) if (@_);
16             }
17              
18             sub set {
19 39     39 1 12488 my $pkg = shift;
20 39         135 Log::Any->_manager->set(@_)
21             }
22              
23             sub remove {
24 2     2 1 6 my $pkg = shift;
25 2         39 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__