package  FooChild;

use base 'Foo';

use constant SO_FIFTH => 5;

sub getFifth 
{
    my $self = shift;
    $self->[SO_FIFTH];
}

##</code><code>##

sub getFoo
{
    my $self = shift;
    $self->{__PACKAGE__}{Foo}
}