overload stringify to username
passthrough for session login
BEGIN { __PACKAGE__->mk_accessors(qw/user/) }
+use overload '""' => sub { shift->user->username };
+
sub new {
my ( $class, $user ) = @_;
return {
password => {
self_check => 1,
- }
+ },
+ session => 1
};
}
split( ",", $self->user->extra_info );
}
+sub for_session {
+ my $self = shift;
+ return $self;
+}
+
+sub from_session {
+ my ($class,$c,$user) = @_;
+ return $user;
+}
+
__PACKAGE__;
__END__