/[transports]/trunk/lib/Transports/Model/User.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Transports/Model/User.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 14 by dpavlin, Thu May 4 21:54:50 2006 UTC revision 15 by dpavlin, Fri May 26 10:01:16 2006 UTC
# Line 30  use base qw/Transports::Record/; Line 30  use base qw/Transports::Record/;
30    
31  # Your model-specific methods go here.  # Your model-specific methods go here.
32    
33  sub password {  =head2 password_is STRING
34          return undef;  
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;  1;
59    
Legend:
Removed from v.14  
changed lines
  Added in v.15
  ViewVC Help
Powered by ViewVC 1.1.26