Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer

Re: About inheritence ? and Autoload ?

by ikegami (Pope)
on Nov 24, 2009 at 23:38 UTC ( #809228=note: print w/replies, xml ) Need Help??

in reply to About inheritence ? and Autoload ?

why does my $test_command = Command->new(@ARGV); not work ?

How does it "not work"? ( Oops, thought it said Test->new. You never defined Command::new )

I'd like to check if there's a Test::Command::$command module

my $pkg = "Test::Command::$command"; ( my $mod = $pkg ) =~ s{::}{/}g; $mod .= '.pm'; my $exists = eval { require $mod };

and if yes execute something like Test::Command::$command->handle_output()

... $pkg->handle_output();

By the way, Test::Command::new re-blesses the object for nothing and could use some cleanup:

sub new { my $class = shift; my $command = shift; my $self = $class->SUPER::new(); print "DEBUG : handling command $command in " . __PACKAGE__ . "\n" if ( $command ); }

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://809228]
LanX has to go go/
[holli]: baba

How do I use this? | Other CB clients
Other Users?
Others studying the Monastery: (8)
As of 2017-11-20 19:59 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (293 votes). Check out past polls.