File Coverage

lib/Doxygen/Filter.pm
Criterion Covered Total %
statement 20 20 100.0
branch 1 2 50.0
condition n/a
subroutine 5 5 100.0
pod 0 1 0.0
total 26 28 92.8


line stmt bran cond sub pod time code
1             #** @file Filter.pm
2             # @verbatim
3             #####################################################################
4             # This program is not guaranteed to work at all, and by using this #
5             # program you release the author of any and all liability. #
6             # #
7             # You may use this code as long as you are in compliance with the #
8             # license (see the LICENSE file) and this notice, disclaimer and #
9             # comment box remain intact and unchanged. #
10             # #
11             # Package: Doxygen #
12             # Class: Filter #
13             # Description: Methods for prefiltering code for Doxygen #
14             # #
15             # Written by: Bret Jordan (jordan at open1x littledot org) #
16             # Created: 2011-10-13 #
17             #####################################################################
18             # @endverbatim
19             #
20             # @copy 2011, Bret Jordan (jordan2175@gmail.com, jordan@open1x.org)
21             # $Id: Filter.pm 88 2012-07-07 04:27:35Z jordan2175 $
22             #*
23             package Doxygen::Filter;
24              
25 1     1   369 use 5.8.8;
  1         2  
  1         51  
26 1     1   5 use strict;
  1         2  
  1         36  
27 1     1   4 use warnings;
  1         2  
  1         29  
28 1     1   1095 use Log::Log4perl;
  1         73702  
  1         12  
29              
30             our $VERSION = '1.70';
31             $VERSION = eval $VERSION;
32              
33              
34              
35             sub GetLogger
36             {
37             #** @method public GetLogger ($object)
38             # This method is a helper method to get the Log4perl logger object ane make sure
39             # it knows from which class it was called regardless of where it actually lives.
40             #*
41 11     11 0 11 my $self = shift;
42 11         10 my $object = shift;
43 11         12 my $package = ref($object);
44 11         56 my @data = caller(1);
45 11         34 my $caller = (split "::", $data[3])[-1];
46 11         19 my $sLoggerName = $package . "::" . $caller;
47 11 50       22 print "+++ DEBUGGER +++ $sLoggerName\n" if ($self->{'_iDebug'} == 1);
48              
49 11         36 return Log::Log4perl->get_logger("$sLoggerName");
50             }
51              
52              
53             return 1;