#!/usr/bin/perl -w

use warnings;
use strict;

package timer;

########################################################################################
sub new
{
    my $classname = shift;
    my $self = {timerstart => 0};
    return bless($self, $classname);
}
########################################################################################
sub TON
{
    my $self = shift;
    my $vke  = shift;
    my $zeit = shift;

    
    if ($vke == 0) 
    { 
	$self->{timerstart} = 0;
	$self->{aktzeit} = 0;
	return 0; 
    }
    
#Timer initialisieren
    if ($self->{timerstart} == 0 && $vke == 1)
    { 
      $self->{timerstart} = 1;
      $self->{aktzeit} = $zeit;
    }
 
    
    if ($self->{timerstart} = 1 && $self->{aktzeit} > 0 )
    { 
	$self->{aktzeit} -= 0.8;
	print "Timer noch nicht 0\n";
	return 0; 
    }
    else
    { 
	$self->{aktzeit} = 0;
	print "Timer ist 0\n";
	return 1; 
    }
}    
    
########################################################################################
my $timer_1 = timer->new();
my $retval_timer_1;

while (1)
{
  sleep(1);
  $retval_timer_1 = $timer_1->TON(1,10);
  
  print "$retval_timer_1=$timer_1->{aktzeit}\n";
}