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   1159555 use 5.008001;
  16         54  
2 16     16   73 use strict;
  16         40  
  16         405  
3 16     16   95 use warnings;
  16         45  
  16         1337  
4              
5             package Log::Any::Adapter;
6              
7             # ABSTRACT: Tell Log::Any where to send its logs
8             our $VERSION = '1.718';
9              
10 16     16   2758 use Log::Any;
  16         28  
  16         73  
11             our @CARP_NOT = ( 'Log::Any::Manager' );
12              
13             sub import {
14 12     12   83 my $pkg = shift;
15 12 100       2547 Log::Any->_manager->set(@_) if (@_);
16             }
17              
18             sub set {
19 40     40 1 686761 my $pkg = shift;
20 40         170 Log::Any->_manager->set(@_)
21             }
22              
23             sub remove {
24 2     2 1 6 my $pkg = shift;
25 2         13 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__