push @{ $c->session->{items} }, $item_id; $c->session->{cart}{$item_id} += $quantity; #### sub contact_GET { my ( $self, $c ) = @_; # Using Crypt::Random my $token = makerandom( Size => 128, Strength => 0 ); $c->session->{token} = $token; $c->load_status_msgs; $c->stash( template => 'contact.tt', title => 'Contact Us', token => $token, ); }