package InternaTest;

# boilerplate

sub new {
    my $self = bless {}, shift;
    $self->is_false( 0 );
    return $self;
}

sub is_false {
    my ($self,$value) = @_;
    $self->{flasch} = $value if @_ == 2;
    return $self->{flasch};
}

1;