package OOTest::Out;
# ... wie bisher

sub instance { $o }

sub set_debug {
    my $self = shift;
    my ($debug) = @_;
    $self->{ debug } = $debug;
}