| 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
| 2016-08-31 | perl v5.22.2 |