Parent Directory | Revision Log | Patch
revision 1098 by dpavlin, Sun Jun 28 22:14:22 2009 UTC | revision 1104 by dpavlin, Mon Jun 29 12:11:14 2009 UTC | |
---|---|---|
# | Line 73 has _confirmed => ( | Line 73 has _confirmed => ( |
73 | default => sub { 0 }, | default => sub { 0 }, |
74 | ); | ); |
75 | ||
76 | sub BUILD { | |
77 | my $self = shift; | |
78 | die "e-mail not verified\n" unless $self->email eq $self->email_verify; | |
79 | } | |
80 | ||
81 | my @cols = Frey::PPI->new( class => __PACKAGE__ )->attribute_order; | my @cols = Frey::PPI->new( class => __PACKAGE__ )->attribute_order; |
82 | warn "# cols = ",join(',', @cols), $/; | warn "# cols = ",join(',', @cols), $/; |
83 |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |