#!/usr/bin/perl 

use lib ".";
use Info;
use Item;

my $id = '3c85ccbef20f62dd495e9b9b958bf040';
my $info = Info->new('cid'=>$id);
print "Cid: ", $info->cid, "\n";
if ($ARGV[0]) {
$info->clear_items();
$info->push_items(Item->new(sku=>'123123',qty=>1));
$info->push_items(Item->new(sku=>'123321',qty=>2));
}

print $info->count_items(), "\n";
while ($x = $info->pop_items) {
        print "Sku: ", $x->sku, " Qty: ", $x->qty, "\n";
}
exit;