| Current Path : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/DivBasicF/ |
Linux ift1.ift-informatik.de 5.4.0-216-generic #236-Ubuntu SMP Fri Apr 11 19:53:21 UTC 2025 x86_64 |
| Current File : /var/www/web-klick.de/dsh/50_dev2017/1300__perllib/DivBasicF/Beispiel.pm |
package DivBasicF::Beispiel;
use strict;
use DivBasicF::ObjTask;
#******************************************************************
sub new {
my $class = shift;
my $self = {};
bless($self,$class);
$self->{'COM'} = DivBasicF::ObjTask->new();
return($self);
}
#******************************************************************
sub berechne {
my $self = shift;
my $pars = shift;
$self->{'COM'}->push( $self, ["berechne_1",$pars], 10);
}
#******************************************************************
sub berechne_1 {
my $self = shift;
my $pars = shift;
$self->{'ERGEBNIS'} = 2*$pars;
print "ERG: " . $self->{'ERGEBNIS'} . "\n";
return(["Ergebnis berechnet"]);
}
#******************************************************************
sub ergebnis {
my $self = shift;
$self->{'PARENT'}->fork();
return([$self->{'ERGEBNIS'}]);
}
#*********************************************************************
sub INDEX {
my $self = shift;
my $idx = shift;
if ($idx eq "erg") { return($self->{'ERGEBNIS'}); }
return("");
}
1;