Help for this page

Select Code to Download


  1. or download this
    my $pkg = "Test::Command::$command";
( my $mod = $pkg ) =~ s{::}{/}g;
$mod .= '.pm';
my $exists = eval { require $mod };
  2. or download this
    ...
$pkg->handle_output();
  3. or download this
    sub new {
    my $class   = shift;
...
    print "DEBUG : handling command $command in " . __PACKAGE__ . "\n"
        if ( $command );
}