Not sure what you are trying to do, but the following may suggest some things to think about. You may also be interested in Not quite an OO tutorial for a light weight introduction to Perl OO.
use strict;
use warnings;
package cParent;
sub new {
my ($class) = @_;
my $self = bless {test_att => 3}, $class;
return $self;
}
sub parent_sub {
my ($self) = @_;
print "In parent. Test value is $self->{test_att}\n";
}
package cChild;
push @cChild::ISA, 'cParent';
sub child_sub {
my ($self) = @_;
print "In child_sub. Test value is $self->{test_att}\n";
}
package main;
my $obj = cChild->new();
$obj->child_sub();
$obj->parent_sub();
Prints:
In child_sub. Test value is 3
In parent. Test value is 3
If the reply is way off base maybe you need to tell us more about what you are trying to achieve.
Premature optimization is the root of all job security