The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

CLACO / Mango-0.01000_08 / lib / Mango / Catalyst / Plugin / Authentication / AnonymousUser.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
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150

              
# $Id: /local/CPAN/Mango/trunk/lib/Mango/Catalyst/Plugin/Authentication/AnonymousUser.pm 1959 2007-08-10T05:27:29.884596Z claco  $
package Mango::Catalyst::Plugin::Authentication::AnonymousUser;
use strict;
use warnings;
BEGIN {
    use base qw/Mango::Catalyst::Plugin::Authentication::User/;
    use Mango::Exception ();
};
__PACKAGE__->mk_accessors(qw/password/);
sub new {
    my ($class, $c, $config) = @_;
    my $name = $config->{'user_model'};
    my $model = $c->model($name);
    Mango::Exception->throw('MODEL_NOT_FOUND', $name) unless $model;
    my $user = $model->result_class->new({
        id => '0E0',
        username => 'anonymous'
    });
    return bless {
        config => $config,
        _context => $c,
        _user => $user
    }, $class;
};
sub roles {
};
sub profile {
    my $self = shift;
    my $name = $self->config->{'profile_model'};
    my $model = $self->_context->model($name);
    Mango::Exception->throw('MODEL_NOT_FOUND', $name) unless $model;
    if (!$self->_profile) {
        $self->_profile(
            $model->result_class->new({
                id => $self->_user->id,
                first_name => 'Anonymous',
                last_name => 'User'
            })
        );
    };
    return $self->_profile;
};
sub supported_features {
    my $self = shift;
    return {
        roles => 1,
        profiles => 1,
        carts => 1
    };
};
1;
__END__
=head1 NAME
Mango::Catalyst::Plugin::Authentication::AnonymousUser - Custom Catalyst Authentication Anonymous User
=head1 SYNOPSIS
    use Catalyst qw/
        -Debug
        ConfigLoader
        +Mango::Catalyst::Plugin::Authentication
        Static::Simple
    /;
    my $user = $c->user;
    print $user->cart->count;
=head1 DESCRIPTION
Mango::Catalyst::Plugin::Authentication::AnonymousUser is a custom user for
users that haven't yet been authenticated, i.e. 'anonymous' users.
=head1 CONSTRUCTOR
=head2 new
There should never be any reason to create one of these yourself. :-)
=head1 METHODS
=head2 cart
Returns a cart for the current user. If no cart exists, one
will be created and assigned to the users current session. The same cart
will be returned for a user before and after they are authenticated.
    my $cart = $c->user->cart;
    print $cart->count;
    $cart->add(...);
Normally, a Mango::Cart is returned. If you are using a custom cart model
that has set its C<result_class> to a custom subclass of Mango::Cart, that
class will be used instead.
=head2 profile
Returns an anonymous profile for the current user. This profile is mostly
empty except for the following fields:
    first_name: Anonymous
    last_name: User
Normally, a Mango::Profile is returned. If you are using a custom profile model
that has set its C<result_class> to a custom subclass of Mango::Profile, that
class will be used instead.
=head2 roles
Returns an empty list.
=head2 supported_features
Returns an anonymous hash containing the following options:
    roles => 1,
    profiles => 1,
    carts => 1
=head1 SEE ALSO
L<Catalyst::Plugin::Authentication>,
L<Mango::User>, L<Mango::Profile>, L<Mango::Cart>,
L<Mango::Catalyst::Plugin::Authentication::Store>
L<Mango::Catalyst::Plugin::Authentication::User>
L<Mango::Catalyst::Plugin::Authentication::CachedUser>
L<Mango::Catalyst::Plugin::Authentication::AnonymousUser>
=head1 AUTHOR
    Christopher H. Laco
    CPAN ID: CLACO
    claco@chrislaco.com
    http://today.icantfocus.com/blog/