#!/usr/bin/perl

use strict;
use lib '../lib';
use Continuity;

my $server = Continuity->new(
    port => 8080,
);

sub main {
  my $request = shift->next;

  my $store = PetStore->new;
  $store->main;
}

package GuiComponent;

sub new {
  my $class = shift;
  my $self = {};
  bless $self, $class;
  return $self;
}



package Cart;

sub new {
  my $class = shift;
  my $self = {
    items => [],
  };
  bless $self, $class;
  return $self;
}

sub add_item {
  my ($self, $item) = @_;
  push @{$self->{items}}, $item;
}

sub remove_item {
  my ($self, $item) = @_;
  $self->{items} = [ grep { $_ != $item } @{$self->{items}} ];
}