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)