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