note
ikegami
<blockquote><p><i>why does <c>my $test_command = Command->new(@ARGV);</c> not work ?</i></blockquote>
<p>How does it "not work"? <b>(</b> Oops, thought it said <c>Test->new</c>. You never defined <c>Command::new</c> <b>)</b>
<blockquote><p><i>I'd like to check if there's a <c>Test::Command::$command</c> module</i></blockquote>
<c>
my $pkg = "Test::Command::$command";
( my $mod = $pkg ) =~ s{::}{/}g;
$mod .= '.pm';
my $exists = eval { require $mod };
</c>
<blockquote><p><i>and if yes execute something like <c>Test::Command::$command->handle_output()</c></i></blockquote>
<c>
...
$pkg->handle_output();
</c>
<p>By the way, <c>Test::Command::new</c> re-blesses the object for nothing and could use some cleanup:
<c>
sub new {
my $class = shift;
my $command = shift;
my $self = $class->SUPER::new();
print "DEBUG : handling command $command in " . __PACKAGE__ . "\n"
if ( $command );
}
</c>
809222
809222