# Umluftherd.pm

package Umluftherd;

use Ofen;

@ISA = qw(Ofen);                    # erhalte alle Variablen
                                    #  und Methoden von Ofen
sub new
{
    my $class = shift;
    my $self = new Ofen;
    $self->{umluft} = 0;            # Umluft aus
    bless $self, $class;
}

sub umluft_an
{
    my $self = shift;
    $self->{umluft} = 1;
}

sub umluft_aus
{
    my $self = shift;
    $self->{umluft} = 0;
}

1;