File Coverage

lib/CGI/Mungo/Log.pm
Criterion Covered Total %
statement 14 14 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 18 19 94.7


line stmt bran cond sub pod time code
1             package CGI::Mungo::Log;
2 3     3   19 use strict;
  3         6  
  3         107  
3 3     3   16 use warnings;
  3         5  
  3         80  
4 3     3   15 use base qw(CGI::Mungo::Utils);
  3         4  
  3         6241  
5             ###########################################################
6             sub log{ #a simple way to log a message to the apache error log
7 1     1 0 3 my($self, $message) = @_;
8 1         176 my $date = localtime(); #add the time
9 1         13 my $script = $self->_getScriptName(); #add the name of the script
10 1         165 print STDERR $script . " " . $message . "\n";
11 1         5 return 1;
12             }
13             #################################################
14             return 1;