Re: Data inheritance

I think you're asking how to store an array to the object.

There's no reason to override the parent's object construction.
If you are using hash based objects, then you can't store an array into it directly. Hashes can only have scalars for values. You could store a reference to an array, though. [] creates an array and returns a reference to that array.
You're getting a syntax error because that's not even close to how one assigns to a hash via a reference.

package Base;

use strict;
use warnings;

sub new {
   my $class = shift;
   return bless({}, $class);
}

1;
[download]

package Child;

use strict;
use warnings;

use Base;

our @ISA = qw( Base );

sub new {
   my $class = shift;
   my $self = $class->SUPER::new();
   $self->{nums} = [qw( 1 2 )];
   return $self;
}

1;
[download]

Comment on Re: Data inheritance Select or Download Code

Replies are listed 'Best First'.
Re^2: Data inheritance by perlbaski (Sexton) on Sep 23, 2011 at 21:00 UTC
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??	[reply] [d/l]
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]
Re^4: Data inheritance by perlbaski (Sexton) on Sep 23, 2011 at 21:15 UTC
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]
Re^5: Data inheritance by ikegami (Patriarch) on Sep 23, 2011 at 21:17 UTC
Re^4: Data inheritance by perlbaski (Sexton) on Sep 23, 2011 at 21:27 UTC
Then why is it called inheritance?? Sorry for the persistent naive questions..	[reply]
Re^5: Data inheritance by ikegami (Patriarch) on Sep 23, 2011 at 22:47 UTC
Re^4: Data inheritance by perlbaski (Sexton) on Sep 23, 2011 at 21:12 UTC
It does, I had use strict and use warnings in MyObject.pm :(	[reply]
Re^5: Data inheritance by ikegami (Patriarch) on Sep 23, 2011 at 21:13 UTC