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   277807 use 5.008001;
  14         124  
2 14     14   72 use strict;
  14         25  
  14         369  
3 14     14   69 use warnings;
  14         28  
  14         777  
4              
5             package Log::Any::Adapter;
6              
7             # ABSTRACT: Tell Log::Any where to send its logs
8             our $VERSION = '1.716';
9              
10 14     14   2551 use Log::Any;
  14         30  
  14         67  
11             our @CARP_NOT = ( 'Log::Any::Manager' );
12              
13             sub import {
14 11     11   79 my $pkg = shift;
15 11 100       3160 Log::Any->_manager->set(@_) if (@_);
16             }
17              
18             sub set {
19 39     39 1 13507 my $pkg = shift;
20 39         157 Log::Any->_manager->set(@_)
21             }
22              
23             sub remove {
24 2     2 1 4 my $pkg = shift;
25 2         8 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__