package Foo;
use strict;
use warnings;

use base 'SmartHash';

sub new {
    my $class = shift;
    bless {}, $class;
}

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

1;