Select Code to Download

sub new {
    my $class = shift;
...
    
    return bless \%attrs, $class;
}

sub add_product {
    my ($self, $product_data) = @_;
...
    push $self->{'trolley'}, $new_product;
    push @{$self->{'trolley'}}, $new_product;
}