##
ShoppingCart->new(
user => $user,
( map { $_->id => $_->quantity } @products ),
);
##
##
use CGI;
use Data::Dumper;
my $q = CGI->new(foo => 1);
print Dumper [
foo => $q->param('foo'),
bar => 1,
];
##
##
foo => scalar $q->param('foo'),
##
##
ShoppingCart->new(
user => $user,
map { $_->id => $_->quantity } @products,
bank_account => 99,
);