Select Code to Download

package TDP::RewriteSettlementFiles::Common;

...
} 

1;

package TDP::RewriteSettlementFiles::Util::ModifyNumbers;
use base 'TDP::RewriteSettlementFiles::Base';
...
mk_accessor_mutator(__PACKAGE__, '_platform', [ qw/tst dev it uat/ ]);
mk_accessor_mutator(__PACKAGE__, '_system',   [ qw/airbp airworld avfu
+el aviation chevron shell/ ]);
mk_accessor_mutator(__PACKAGE__, 'merchant');

BEGIN {
  require_ok('TDP::RewriteSettlementFiles::Util::ModifyNumbers'); 
}

perl TDP-RewriteSettlementFiles-Util-ModifyNumbers.t 
1..307
...
# Looks like you planned 307 tests but only ran 1.
# Looks like you failed 1 test of 1 run.
# Looks like your test died just after 1.