From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

CLACO / Mango-0.01000_01 / lib / Mango / Profile.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

              
# $Id: /local/Mango/trunk/lib/Mango/Profile.pm 155 2007-04-16T02:58:37.637652Z claco  $
package Mango::Profile;
use strict;
use warnings;
BEGIN {
    use base qw/Mango::Object/;
    __PACKAGE__->mk_group_accessors('column', qw/user_id first_name last_name/);
};
1;
__END__
=head1 NAME
Mango::Profile - A user profile
=head1 SYNOPSIS
    my $profile = $provider->search({ user => 23 });
    print $user->created;
    $user->first_name('Christopher');
    $user->update;
=head1 DESCRIPTION
Mango::Profile represents a profile returned from the profile provider.
=head1 METHODS
=head2 id
Returns id of the current profile.
    print $profile->id;
=head2 created
Returns the date the profile was created as a DateTime object.
    print $profile->created;
=head2 destroy
Deletes the current item from the provider.
=head2 updated
Returns the date the profile was last updated as a DateTime object.
    print $profile->updated;
=head2 first_name
=over
=item Arguments: $first_name
=back
Gets/sets the first name of the user.
    print $profile->first_name;
=head2 last_name
=over
=item Arguments: $last_name
=back
Gets/sets the last name of the user.
    print $profile->last_name;
=head2 update
Saves any changes to the profile back to the provider.
=head1 SEE ALSO
L<Mango::Object>, L<Mango::Provider::Profiles>
=head1 AUTHOR
    Christopher H. Laco
    CPAN ID: CLACO
    claco@chrislaco.com
    http://today.icantfocus.com/blog/