package Foo;

sub new {
    my $name = shift;
    bless { x => 'from Foo' }, $name;
}

sub x {
    my ($self, $arg) = @_;
    $$self{x} = $arg if ($arg);
    return $$self{x};
}

1;