Hello esteemed Monks,

I'm looking for some enlightenment about some 00 concepts.
given :

package Test;

sub new {

    my $class   = shift;
    my $item    = {};
    print "DEBUG : creating object in " . __PACKAGE__ . "\n";
    bless $item , $class;
    return $item;
}

1;
[download]

and :

package Test::Command;

use strict;
use warnings;

use Test;
use vars qw(@ISA);
@ISA = qw(Test);

sub new {

    my $item    = shift;
    my $command = shift;
    my $class   = ref( $item ) || $item;
    my $self    = bless $item->SUPER::new(), $class;

    print "DEBUG : handling command $command in " . __PACKAGE__ . "\n"
+ if ( $command );

}

1;
[download]

running :

#!/usr/bin/perl

use strict;
use warnings;

use lib 'lib';

use Test;
use Test::Command;

$|=1;

my $test_command = Test::Command->new(@ARGV);
[download]

produces :

DEBUG : creating object in Test
DEBUG : handling command test_command in Test::Command
[download]

question 1 :
why does

my $test_command = Command->new(@ARGV);
[download]

not work ?
and question 2 :

in Test::Command I'd like to check if there's a

Test::Command::$command
[download]

module and if yes execute something like this

Test::Command::$command->handle_output()
[download]

Do I need some AUTOLOAD Voodoo ? in Test.pm ?

Any hints, pointers, examples and even solutions are welcome !

P.S : I already read the common OOtuts (several times), but it's still not clear in my tired neuron.

Thanks !

Have a nice day