File Coverage

blib/lib/OpenPlugin/Log.pm
Criterion Covered Total %
statement 7 13 53.8
branch n/a
condition 0 2 0.0
subroutine 3 5 60.0
pod 0 3 0.0
total 10 23 43.4


line stmt bran cond sub pod time code
1             package OpenPlugin::Log;
2              
3             # $Id: Log.pm,v 1.17 2003/04/28 17:43:48 andreychek Exp $
4              
5 6     6   36 use strict;
  6         13  
  6         363  
6 6     6   34 use OpenPlugin::Plugin;
  6         10  
  6         1754  
7              
8             @OpenPlugin::Log::ISA = qw( OpenPlugin::Plugin );
9             $OpenPlugin::Log::VERSION = sprintf("%d.%02d", q$Revision: 1.17 $ =~ /(\d+)\.(\d+)/);
10              
11 12     12 0 112 sub OP { return $_[0]->{_m}{OP} }
12 0     0 0   sub type { return 'log' }
13              
14             sub log {
15 0     0 0   my $self = shift;
16 0   0       my $level = shift || 0;
17              
18 0           warn "The log function is deprecated!\n";
19 0           my $msg = join( ' ', @_ );
20 0           warn( $msg, $level );
21             }
22              
23             1;
24              
25             __END__