Help for this page
my $pkg = "Test::Command::$command"; ( my $mod = $pkg ) =~ s{::}{/}g; $mod .= '.pm'; my $exists = eval { require $mod };
... $pkg->handle_output();
sub new { my $class = shift; ... print "DEBUG : handling command $command in " . __PACKAGE__ . "\n" if ( $command ); }
www.com | www.net | www.org
No recent polls found