File Coverage

blib/lib/Business/Shipping/Package.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package Business::Shipping::Package;
2              
3             =head1 NAME
4              
5             Business::Shipping::Package - Abstract class
6              
7             =head1 DESCRIPTION
8              
9             Represents package-level information (e.g. weight). Subclasses provide real
10             implementation.
11              
12             =head1 METHODS
13              
14             =cut
15              
16 1     1   383749 use Any::Moose;
  1         36034  
  1         7  
17 1     1   1486 use version; our $VERSION = qv('400');
  1         2279  
  1         6  
18              
19             =head2 $package->weight()
20              
21             Accessor for weight.
22              
23             =head2 $package->id()
24              
25             Package ID (for unique identification in a list of packages).
26              
27             =cut
28              
29             extends 'Business::Shipping';
30             has 'weight' => (is => 'rw');
31             has 'id' => (is => 'rw');
32             has 'charges' => (is => 'rw');
33             has 'dimensional_weight' => (is => 'rw');
34              
35             __PACKAGE__->meta()->make_immutable();
36              
37             1;
38              
39             __END__