http://www.perlmonks.org?node_id=927615


in reply to Re: Data inheritance
in thread Data inheritance

So this code isnt working.. 
CommonObject.pm
my $some_var;
#constructor
sub new{
 my $class=shift;
 my $self = {} ;
 bless $self, $class;
 print Dumper($self);
 return $self;

}

MyObject.pm

our @ISA = qw( CommonObject );

sub new{
 my $class=shift;
 $testName=shift;
 my $self = CommonObject->new();
$self->some_var="abcd";
return $self;
}

[download]
I want to be able to set some_var here. I get error Global symbol "$some_var" requires explicit package name. Isnt inheritance supposed to get the variable into MyObject??

Replies are listed 'Best First'.
Re^3: Data inheritance
by ikegami (Patriarch) on Sep 23, 2011 at 21:04 UTC

    The code you posted does not produce that error.

    The code you posted fails for a different reason: You are trying to assign a scalar to a method call ($self->some_var="abcd";).

[reply]
[d/l]
      Hey..yes..that was a typo..i cant copy paste my code here. I had $self->$some_var="abcd";#This was not the problem. 
      package CommonObject;

my $some_var;
#constructor
sub new{
 my $class=shift;
 my $self = {} ;
 bless $self, $class;
 print Dumper($self);
 return $self;

}
1;


package MyObject;
our @ISA = qw( CommonObject );
use strict;
use warnings;

sub new{
 my $class=shift;
 my $testName=shift;
 my $self = CommonObject->new();
$self->$some_var="abcd";
print $self->$some_var;
return $self;
}

1;

#!/usr/bin/perl

use MyObject;

my $obj=MyObject->new("lkj");

      [download]
      Thats the exact code
[reply]
[d/l]
        Of course that doesn't work. That's the same as your original code, just with a scalar instead of an array. Goto Re: Data inheritance
[reply]
      Then why is it called inheritance?? Sorry for the persistent naive questions..
[reply]
        It's not, it's a called a lexical variable.
[reply]
      It does, I had use strict and use warnings in MyObject.pm :(
[reply]
        Even with those. You did not post the code you ran.
[reply]

In Section Seekers of Perl Wisdom