Help for this page

Select Code to Download


  1. or download this
    #! /usr/bin/env perl

...
d('hi');
di('hi');
dd('hi');
  2. or download this
    defined &d && d('hi');
defined &di && di('hi');
defined &dd && dd('hi');
  3. or download this
    sub d {} sub d0 {} sub d1 {} sub dd {} sub di {};
use if $ENV{MYMOD_DEBUG_LEVEL}, 'Test::Utils::Dump' => qw(d d0 d1 dd d
+i);
...
d 'hi';
di 'hi';
dd 'hi';