capture list rate discount for FedEx rates

thanks to @jdigory for the patch!!
pullingshots · Sep 14, 2016 · f45166d · f45166d
1 parent fc78e0f
commit f45166d
Show file tree

Hide file tree

Showing 2 changed files with 17 additions and 0 deletions.
diff --git a/lib/Shipment/FedEx.pm b/lib/Shipment/FedEx.pm
@@ -376,6 +376,7 @@ sub _build_services {
               Residential         =>  $self->residential_address,
             },
           },
+          RateRequestTypes => 'LIST',
           PackageCount =>  $self->count_packages || 1,
           PackageDetail => 'INDIVIDUAL_PACKAGES',
           RequestedPackageLineItems =>  \@pieces,
@@ -403,6 +404,11 @@ sub _build_services {
             $service->get_RatedShipmentDetails->[0]->get_ShipmentRateDetail->get_TotalNetCharge->get_Amount,
             $service->get_RatedShipmentDetails->[0]->get_ShipmentRateDetail->get_TotalNetCharge->get_Currency
           ),
+          discount => Data::Currency->new(
+                                $service
+                                  ->get_RatedShipmentDetails->[0]
+                                  ->get_EffectiveNetDiscount->get_Amount,
+                            ),
         );
     }
     $services{ground} = $services{'FEDEX_GROUND'} || $services{'GROUND_HOME_DELIVERY'} || $services{'INTERNATIONAL_GROUND'} || Shipment::Service->new();
@@ -550,6 +556,7 @@ sub rate {
               Residential         =>  $self->residential_address,
             },
           },
+          RateRequestTypes => 'LIST',
           PackageCount =>  $self->count_packages,
           PackageDetail => 'INDIVIDUAL_PACKAGES',
           RequestedPackageLineItems =>  \@pieces,  
@@ -575,6 +582,11 @@ sub rate {
             $response->get_RateReplyDetails()->get_RatedShipmentDetails->[0]->get_ShipmentRateDetail->get_TotalNetCharge->get_Amount, 
             $response->get_RateReplyDetails()->get_RatedShipmentDetails->[0]->get_ShipmentRateDetail->get_TotalNetCharge->get_Currency, 
           ),
+          discount => Data::Currency->new(
+                                $response->get_RateReplyDetails()
+                                  ->get_RatedShipmentDetails->[0]
+                                  ->get_EffectiveNetDiscount->get_Amount,
+                            ),
       )
     );
   } catch {

diff --git a/lib/Shipment/Service.pm b/lib/Shipment/Service.pm
@@ -248,5 +248,10 @@ under the same terms as Perl itself.
 
 =cut
 
+has 'discount' => (
+    is      => 'rw',
+    isa     => InstanceOf ['Data::Currency'],
+    default => sub { Data::Currency->new(0) },
+);
 
 1;