Vend::Cart(3pm) User Contributed Perl Documentation Vend::Cart(3pm)
Test header for item toss
my $cart = [
{
code => 1,
mv_mi => 1,
mv_si => 0,
mv_ci => 0,
quantity => 0,
},
{
code => 2,
mv_mi => 1,
mv_si => 1,
mv_ci => 2,
quantity => 1,
},
{
code => 3,
mv_mi => 2,
mv_si => 1,
mv_ci => 0,
quantity => 1,
},
{
code => 5,
mv_mi => 1,
mv_si => 1,
mv_ci => 3,
quantity => 1,
},
{
code => 50,
mv_mi => 3,
mv_si => 1,
mv_ci => 0,
quantity => 1,
},
{
code => 51,
mv_mi => 3,
mv_si => 1,
mv_ci => 31,
quantity => 1,
},
{
code => 52,
mv_mi => 31,
mv_si => 1,
mv_ci => 0,
quantity => 1,
},
{
code => 6,
mv_mi => 1,
mv_si => 1,
mv_ci => 0,
quantity => 1,
},
{
code => 7,
mv_mi => 0,
mv_si => 0,
mv_ci => 0,
quantity => 1,
},
];
Test footer for item toss
toss_cart($cart);
use Data::Dumper;
$Data::Dumper::Indent = 2;
$Data::Dumper::Terse = 2;
print Data::Dumper::Dumper($cart);
# ENDTEST
perl v5.14.2 2011-05-06 Vend::Cart(3pm)
