package MyApp::Ticket;
sub new
{
    my ($class, $from, $extra) = @_;
    if (UNIVERSAL::isa($from, 'DBI'))   # it's a DB handle
    {
       my $sth = $from->prepare(...);
       $sth->execute($extra);
       # and so on
    }
    else
    {
       $self->{_time} = $from->{time};
       # etc.
    }
    bless $self, $class;
}

#  Called like so:

my $dbh = DBI->connect(...);
my $dbticket = MyApp::Ticket->new($dbh, $ticketno);

# or like so:
my %args;
my $ticket = MyApp::Ticket->new(\%args);