Select Code to Download

package MyApp::Ticket;
...
    }, $class;
    return $self;    
}

my $new_ticket = new MyApp::Ticket(
                          time=>time(),trad_ref=>34567,
...
                          seller_pays => 99.99
                  );
my $old_ticket = MyApp::Ticket->load(12345);