Vend::Cart(3)

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