use strict; use warnings; package Communication; #------------------------------------------------------------------------------ # Von Exporter erben: #------------------------------------------------------------------------------ use base qw/Exporter/; our @EXPORT = qw//; our @EXPORT_OK = qw/RE_REQUEST ACCEPT DECLINE TIME_OUT NO_MATCH/; our %EXPORT_TAGS = (all => [qw/RE_REQUEST ACCEPT DECLINE TIME_OUT NO_MATCH/]); #------------------------------------------------------------------------------ # Konstanten: #------------------------------------------------------------------------------ use constant RE_REQUEST => 33001; use constant ACCEPT => 33002; use constant DECLINE => 33003; use constant TIME_OUT => 33004; use constant NO_MATCH => 33005; 1;