← Back to branch summary

~ubuntu-branches/ubuntu/edgy/libapache2-mod-perl2/edgy

« back to all changes in this revision

Viewing changes to Apache-Test/lib/Apache/TestTrace.pm

  • Committer: Bazaar Package Importer
  • Author(s): Andres Salomon
  • Date: 2005-08-12 01:40:38 UTC
  • mfrom: (1.1.2 upstream) (2.1.1 sarge)
  • Revision ID: james.westby@ubuntu.com-20050812014038-gjigefs55pqx4qc8
Tags: 2.0.1-3
Grr.  Really include perl.conf file; it got lost due to diff not
wanting to add an empty file.

Show diffs side-by-side

added added

removed removed

Lines of Context:
Apache-Test/lib/Apache/TestTrace.pm
18
18
use warnings FATAL => 'all';
19
19
 
20
20
use Exporter ();
21
 
use vars qw(@Levels @Utils @Subs @ISA @EXPORT $VERSION $Level $LogFH);
 
21
use vars qw(@Levels @Utils @Level_subs @Util_subs
 
22
            @ISA @EXPORT $VERSION $Level $LogFH);
22
23
 
23
24
BEGIN {
24
25
    @Levels = qw(emerg alert crit error warning notice info debug);
25
26
    @Utils  = qw(todo);
26
 
    @Subs   = map {($_, "${_}_mark", "${_}_sub")} (@Levels, @Utils);
 
27
    @Level_subs = map {($_, "${_}_mark", "${_}_sub")} (@Levels);
 
28
    @Util_subs  = map {($_, "${_}_mark", "${_}_sub")} (@Utils);
27
29
}
28
30
 
29
31
@ISA     = qw(Exporter);
30
 
@EXPORT  = (@Subs);
 
32
@EXPORT  = (@Level_subs);
31
33
$VERSION = '0.01';
32
 
use subs (@Subs);
 
34
use subs (@Level_subs, @Util_subs);
33
35
 
34
36
# default settings overrideable by users
35
37
$Level = undef;