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	dpavlin	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	dpavlin	3	is mandatory,
26	dpavlin	1	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	dpavlin	15	=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	dpavlin	5	}
47
48	dpavlin	15	=head2 password
49
50			Never display a password
51
52			=cut
53
54			#sub password {
55			# return undef;
56			#}
57
58	dpavlin	1	1;
59