/ 
FileArchiveIndexer-1.29
/ FileArchiveIndexer::DEBUG

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?