--- trunk/lib/App/RoomReservation/Reservation.pm	2009/06/28 22:14:22	1098
+++ trunk/lib/App/RoomReservation/Reservation.pm	2009/06/29 12:11:14	1104
@@ -73,6 +73,11 @@
 	default => sub { 0 },
 );
 
+sub BUILD {
+	my $self = shift;
+	die "e-mail not verified\n" unless $self->email eq $self->email_verify;
+}
+
 my @cols = Frey::PPI->new( class => __PACKAGE__ )->attribute_order;
 warn "# cols = ",join(',', @cols), $/;