Transports/Model/User.pm

use strict;
use warnings;

package Transports::Model::User::Schema;
use Jifty::DBI::Schema;

# Your column definitions go here.  See L<Jifty::DBI::Schema> for
# documentation about how to write column definitions.

column name => 
    type is 'text',
    label is 'Name',
    is mandatory,
    is distinct;

column email =>
    type is 'text',
    label is 'Email address',
    is mandatory,
    is distinct;

column password =>,
    type is 'text',
    label is 'Password',
    is mandatory,
    render_as 'password';

package Transports::Model::User;
use base qw/Transports::Record/;

# Your model-specific methods go here.

=head2 password_is STRING

Returns true if and only if the current user's password matches STRING

=cut


sub password_is {
        my $self = shift;
        my $string = shift || return;
        warn "password_is ", $self->_value('password'), " == $string\n";
        return 1 if ($self->_value('password') eq $string);
        return 0;
}

=head2 password

Never display a password

=cut

#sub password {
#       return undef;
#}

1;

1	use strict;
2	use warnings;
3
4	package Transports::Model::User::Schema;
5	use Jifty::DBI::Schema;
6
7	# Your column definitions go here. See L<Jifty::DBI::Schema> for
8	# documentation about how to write column definitions.
9
10	column name =>
11	type is 'text',
12	label is 'Name',
13	is mandatory,
14	is distinct;
15
16	column email =>
17	type is 'text',
18	label is 'Email address',
19	is mandatory,
20	is distinct;
21
22	column password =>,
23	type is 'text',
24	label is 'Password',
25	is mandatory,
26	render_as 'password';
27
28	package Transports::Model::User;
29	use base qw/Transports::Record/;
30
31	# Your model-specific methods go here.
32
33	=head2 password_is STRING
34
35	Returns true if and only if the current user's password matches STRING
36
37	=cut
38
39
40	sub password_is {
41	my $self = shift;
42	my $string = shift \|\| return;
43	warn "password_is ", $self->_value('password'), " == $string\n";
44	return 1 if ($self->_value('password') eq $string);
45	return 0;
46	}
47
48	=head2 password
49
50	Never display a password
51
52	=cut
53
54	#sub password {
55	# return undef;
56	#}
57
58	1;
59