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");
Thats the exact code