Help for this page

Select Code to Download


  1. or download this
    $DEBUG=1;
$DEBUG && warn "Doing foo!\n";
foo();
$DEBUG && warn "Done foo!\n";
#etc
  2. or download this
    #!/usr/bin/perl -d:Trace

...
foo();

sub foo{ print "Foo\n" }
  3. or download this
    C:\>test.pl 2>out
Hello World
Foo
Foo
  4. or download this
    C:\>more out
>> C:\test.pl:3: Devel::Trace::trace('on');  # Enable
...
>> D:/Perl/site/lib/Devel/Trace.pm:33:   $TRACE = $arg;

C:\>