88 |
isa => 'Int', |
isa => 'Int', |
89 |
); |
); |
90 |
|
|
91 |
|
has _canceled => ( |
92 |
|
is => 'rw', |
93 |
|
isa => 'Bool', |
94 |
|
default => sub { 0 }, |
95 |
|
); |
96 |
|
|
97 |
sub BUILD { |
sub BUILD { |
98 |
my $self = shift; |
my $self = shift; |
99 |
my $email = $self->email; |
my $email = $self->email; |
140 |
my $sth = $self->dbh->prepare( $sql ); |
my $sth = $self->dbh->prepare( $sql ); |
141 |
$sth->execute( @vals ); |
$sth->execute( @vals ); |
142 |
|
|
143 |
return $self->send_confirmation_message( email => $self->email ); |
return $self->seat_confirmation_message( email => $self->email ); |
144 |
|
|
145 |
} |
} |
146 |
|
|