Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

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 ); }


Comment on Re: About inheritence ? and Autoload ?
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://809228]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (17)
As of 2014-07-29 14:20 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (217 votes), past polls