81 |
default => sub { 0 }, |
default => sub { 0 }, |
82 |
); |
); |
83 |
|
|
84 |
|
has _seat_number => ( |
85 |
|
is => 'rw', |
86 |
|
isa => 'Int', |
87 |
|
); |
88 |
|
|
89 |
sub BUILD { |
sub BUILD { |
90 |
my $self = shift; |
my $self = shift; |
91 |
die "e-mail not verified\n" unless $self->email eq $self->email_verify; |
die "e-mail not verified\n" unless $self->email eq $self->email_verify; |
144 |
by clicking on link which should be in your e-mail INBOX shortly |
by clicking on link which should be in your e-mail INBOX shortly |
145 |
</div> |
</div> |
146 |
| |
| |
147 |
. qq|<a href="/App::RoomReservation::Reservation::Confirmation/verify_as_markup?token=| |
. qq|<a href="/App::RoomReservation::Confirmation/verify_as_markup?token=| |
148 |
. $self->token |
. $self->token |
149 |
. qq|">verify</a>| |
. qq|">verify</a>| |
150 |
. ' or ' |
. ' or ' |
151 |
. qq|<a href="/App::RoomReservation::Reservation::Confirmation/cancel_as_markup?token=| |
. qq|<a href="/App::RoomReservation::Confirmation/cancel_as_markup?token=| |
152 |
. $self->token |
. $self->token |
153 |
. qq|">cancel</a>| |
. qq|">cancel</a>| |
154 |
; |
; |