Vend::Cart.3pm

Langue: en

Version: 2008-03-25 (ubuntu - 07/07/09)

Section: 3 (Bibliothèques de fonctions)

Sommaire

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,
         },
 ];
 
 

         toss_cart($cart);
 
         use Data::Dumper;
         $Data::Dumper::Indent = 2;
         $Data::Dumper::Terse = 2;
         print Data::Dumper::Dumper($cart);
 
         # ENDTEST