--- trunk/lib/App/RoomReservation/Reservation.pm 2009/07/01 22:39:51 1154 +++ trunk/lib/App/RoomReservation/Reservation.pm 2009/07/02 10:12:54 1155 @@ -88,6 +88,12 @@ isa => 'Int', ); +has _canceled => ( + is => 'rw', + isa => 'Bool', + default => sub { 0 }, +); + sub BUILD { my $self = shift; my $email = $self->email;