package KontrolaModuli::p1;

BEGIN {
       use Exporter();
       @ISA = qw(Exporter);
       @EXPORT = qw(&sestej &odstej);
       $VERSION = 1.0;
}
#############################################################################################
#
#
#   funkcije za manipulacije s flagi
#


sub sestej {
    $x=$_[0]; $y=$_[1];
    my $z=shift;
   # my ($x,$y);
    
    $z=$x+$y;
#    return $z;
return $z;
}


sub odstej {
    $x=$_[0]; $y=$_[1];
    my $z=shift;

    $z=$x-$y;

return $z;
}




#sub podatek_je_pravilen {
#    my $flag=shift;
#    my @ivt;
    
#    @ivt=decode_flag($flag);    
#    $ivt[1]=0;
#    $flag=encode_flag(@ivt);
#
#    return $flag;
#}    
return 1;
END { }