package Labor; use strict; require Exporter; my $VERSION = 1.00; our @ISA = qw(Exporter); our %EXPORT_TAGS = ( 'all' => [ qw( @data_map $rkey $lkey $rtable $ltable ) ] ); our @EXPORT_OK = ( @{ EXPORT_TAGS{'all'} } ); our @EXPORT = qw( @data_map $rkey $lkey $rtable $ltable ); ## @data_map, $rkey, $lkey, $rtable, $ltable ## include all necessary information needed to ## map data on local to remote sql server. our @data_map = ( { rdata => 'LaborID', ldata => 'labor_id' }, { rdata => 'Description', ldata => 'description' }, { rdata => 'DirectFlag', ldata => 'labor_type' }, { rdata => 'LaborCat', ldata => 'labor_cat' } ); our $rkey = 'LaborID'; our $lkey = 'labor_id'; our $rtable = 'Labor_ID'; our $ltable = 'lmflaborcd'; 1;