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();

##</code><code>##

In child_sub. Test value is 3
In parent. Test value is 3