package SM::Constants; use strict; use warnings; use base Exporter; # Packet type constants use constant { }; BEGIN { our %h = ( DATA_Location => 0x80, DATA_SUB_Initial => 0x00, ); } use constant \%h; @EXPORT = keys %h; 1;