#!/usr/bin/perl -w
use strict;

use Google::Checkout::General::GCO;
use Google::Checkout::Notification::ChargeAmount;

use Google::Checkout::General::Util qw/is_gco_error/;

#--
#-- User normally gets the XML from Checkout
#--
my $xml = $ARGV[0] || "xml/charge_amount_notification.xml";

my $charge_amount = Google::Checkout::Notification::ChargeAmount->new(xml => $xml);
die $charge_amount if is_gco_error $charge_amount;

print <<__CHARGE_AMOUNT__;
#-------------------------#
#     Charge amount       #
#-------------------------#
Latest charge amount: @{[$charge_amount->get_latest_charge_amount]}
Total charge amount:  @{[$charge_amount->get_total_charge_amount]}


__CHARGE_AMOUNT__