The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

CLACO / Mango-0.01000_07 / lib / Mango / User.pm 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
—
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101

              
# $Id: /local/CPAN/Mango/trunk/lib/Mango/User.pm 1959 2007-08-10T05:27:29.884596Z claco  $
package Mango::User;
use strict;
use warnings;
BEGIN {
    use base qw/Mango::Object/;
    __PACKAGE__->mk_group_accessors('column', qw/username password/);
};
1;
__END__
=head1 NAME
Mango::User - Module representing an individual user
=head1 SYNOPSIS
    my $user = $provider->search({ username => 'claco' });
    print $user->created;
    $user->password('newpassword');
    $user->update;
=head1 DESCRIPTION
Mango::User represents an individual user.
=head1 METHODS
=head2 created
Returns the date and time in UTC the user was created as a DateTime
object.
    print $user->created;
=head2 destroy
Deletes the current user.
    $user->destroy;
=head2 id
Returns the id of the current user.
    print $user->id;
=head2 update
Saves any changes made to the user back to the provider.
    $user->password('Red');
    $user->update;
Whenever L</update> is called, L</updated> is automatically set to the
current time in UTC.
=head2 updated
Returns the date and time in UTC the user was last updated as a DateTime
object.
    print $user->updated;
=head2 username
=over
=item Arguments: $username
=back
Gets/sets the username of the current user.
    print $user->username;
=head2 password
=over
=item Arguments: $password
=back
Gets/sets the password of the current user.
    print $user->password;
=head1 SEE ALSO
L<Mango::Object>, L<Mango::Provider::Users>
=head1 AUTHOR
    Christopher H. Laco
    CPAN ID: CLACO
    claco@chrislaco.com
    http://today.icantfocus.com/blog/