File Coverage

blib/lib/Business/US/USPS/IMB.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 18 18 100.0


line stmt bran cond sub pod time code
1             package Business::US::USPS::IMB;
2              
3 1     1   87735 use 5.010001;
  1         3  
4 1     1   4 use strict;
  1         1  
  1         55  
5 1     1   7 use warnings;
  1         12  
  1         269  
6              
7             require Exporter;
8              
9             our @ISA = qw(Exporter);
10              
11             our @EXPORT_OK = qw(
12             usps4cb
13             );
14              
15             our @EXPORT = qw(
16             encode_IMB
17             );
18              
19             our $VERSION = '0.04';
20              
21             require XSLoader;
22             XSLoader::load('Business::US::USPS::IMB', $VERSION);
23              
24              
25             # Preloaded methods
26              
27             sub encode_IMB {
28 1     1 1 175642 my $track_num = pack("Z21", shift);
29 1         4 my $route_num = pack("Z12", shift);
30 1         3 my $bar_string = pack("Z66","");
31              
32 1         9 my $result_code = Business::US::USPS::IMB::usps4cb($track_num,$route_num,$bar_string);
33              
34 1         5 return unpack("Z66",$bar_string), $result_code;
35             }
36              
37             1;
38             __END__