Can you show the code of My::New::Module::Admin::new?

Ikegami: Your warn(ref($self)) gives me:

test-cgi-tabpane.cgi: My::New::Module::Admin
[download]

main /usr/lib/cgi-bin/test-cgi-tabpane.cgi 51
[download]

sub new {
  my $class = shift;
  my $defaults = shift;
  my $self = {};

  if(defined($defaults->{'object'}) &&
      (UNIVERSAL::isa($defaults->{'object'},'My::New::Module') ||
      UNIVERSAL::isa($defaults->{'object'},'My::New::Module::WWW'))){
    $self = $defaults->{'object'};
  } elsif(defined($defaults->{'cfg'}) &&
      UNIVERSAL::isa($defaults->{'cfg'},'Config::Simple')){
    $self->{'cfg'} = $defaults->{'cfg'};
  } elsif(defined($defaults->{'config_file'})){
    my $config_file = $defaults->{'config_file'};
    # print STDERR $config_file,"\n";
    $self->{'cfg'} = Config::Simple::Inherit->inherit({ filename => $c
+onfig_file });
  } elsif(defined($defaults->{'config_files'})){
    my $cfg;
    undef($cfg);
    foreach my $file (@{$defaults->{'config_files'}}){
      # print STDERR "My::New::Module::WWW->new()
      # says \$file is $file \n";
      $cfg = Config::Simple::Inherit->inherit({
            base_config => $cfg,
               filename => $file });
    }
    $self->{'cfg'} = $cfg;
    # print STDERR Dumper(\$cfg);
  } else {
    die "Constructor invoked with no Confirguration File."
  }

  $self->{'q'} = CGI->new();
  $self->{'agent'} = WWW::Mechanize->new();

  my $db1 = $self->{'cfg'}->get_block('db1_params');
  my $db2 = $self->{'cfg'}->get_block('db2_params');
  # print STDERR Dumper(\$db2),"\n",Dumper(\$db2);
  $self->{'dbh1'} = My::New::Module::DB->connect2($db1_params);
  $self->{'dbh2'} = My::New::Module::DB->connect2($db2_params);

  $self->{'s'} = CGI::Session->new(
                    undef, $self->{'q'},
                    { Directory => '/tmp/sessions'}
               ) or die CGI::Session->errstr;
  $self->{'s'}->expire('+1h');
  $self->{'s'}->flush();

  my $auth_params = $self->{'cfg'}->get_block('auth');
  $self->{'auth'} = CGI::Session::Auth::DBI->new({
             CGI => $self->{'q'},
         Session => $self->{'s'},
        DBHandle => $self->{'dbh1'},
       EncryptPW => $auth_params->{'EncryptPW'},
      GroupField => $auth_params->{'GroupField'}
                 });

  bless $self, $class;
  return $self;
}
[download]

-- Hugh

You're reblessing your object into the wrong class. No wonder Perl can't find your method.

$self = $defaults->{'object'};
...
bless $self, $class;
[download]

I'm not sure what you intend to do with those lines, but they don't have the desired effect.

Similarly:

UNIVERSAL::isa($defaults->{'object'},'My::New::Module')

... is correct only in very simple circumstances. It's more correct to write:

$defaults->{object}->isa( 'My::New::Module' )

... but then again, it's not clear what you intend this code to do.

What do you get when you do warn(ref($self)."\n"); right before the line that gives the error?

And what's the output of the debugging code you have there but commented out?

You are probably making all the errors the authors of these frameworks made and solved.

Use base is intended to include code from another another package into your current one. The way I am reading your code, it looks like you are trying to base an object and hope that it inherits its methods, and that is not right. use base should be used like this,

package My::New::Module::Admin;

use base 'My::New::Module::WWW';
[download]

All the code in My::New::Module::WWW is now available in your child package My::New::Module::Admin. Does that help?

You have it completely backwards.

Use base is intended to include code from another another package into your current one

Not at all. base is intended to load a module and setup an inheritance relationship in one step.

In fact, since base doesn't even call the module's import function, it's intention are exactly the opposite of what you say they are.

On a technical level, you are correct, but sometimes to wrap your head around an idea you present it in a way someone has to understand it. For someone who may not understand the difference you approach the idea in a way they can comprehend not the terminology they may or may not understand.