package Bar;
use strict;
use warnings;

use base 'Foo';

sub bar {
    my $self = shift;
    $self->{bar} = shift if @_;
    return $self->{bar};
}

sub foo {
    my $self = shift;
    $self->{foo} = shift if @_;
    return $self->{foo};
}

1;