Code Index:

package FileArchiveIndexer::DEBUG
- DEBUG
- debug
EOF

NAME

FileArchiveIndexer::DEBUG - debug subs for FileArchiveIndexer

SYNOPSIS

In A.pm

   package A;
   use FileArchiveIndexer::DEBUG;
   use strict;




   sub new {
      my $class = shift;
      my $self ={};
      bless $self, $class;
      return $self;   
   }

   sub test {
      my $self = shift;
      DEBUG or return 0;
      return 1;
   }

In script.t

   use Test::Simple 'no_plan';
   use strict;
   use A;

   my $o = new A;

   $A::DEBUG = 1;
   ok( $o->test );

   $A::DEBUG = 0;
   ok( !($o->test) );

DEBUG()

returns boolean

   print STDERR "oops" if DEBUG;

debug()

argument is message, will only print to STDERR if DEBUG is on.

   debug('only show this if DEBUG is on');

If your message argument does not end in a newline, next message will not be prepended with the subroutine name.

   sub dostuff {
      debug("This is..");

      # ...

      debug("done.\n");

      debug("ok?");      
   }

Would print

   dostuff(), This is.. done.
   dostuff(), ok?