my $main = bless{}, 'main';

# baue einen Rahmen...
eval{ 
        $main->foo()->bar(); # Method Chaining
        print Dumper $main;
} || die $@;

sub foo{
        my $self = shift;
        $self->{FOO} = 1;
        $self; # geht return
}

# setze {BAR} nur wenn {FOO} vorhanden ist
sub bar{
        my $self = shift;
        die "Kein Attribut FOO vorhanden!" if not exists $self->{FOO};
        $self->{BAR} = 4711;
        $self; # further chains...
}