MUENALAN / Class-Maker-0.06 / lib / Class / Maker / Examples / Auth.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

              
# (c) 2009 by Murat Uenalan. All rights reserved. Note: This program is
# free software; you can redistribute it and/or modify it under the same
# terms as perl itself
require 5.005_62; use strict; use warnings;
use Class::Maker::Examples::Expirable;
package Auth;
Class::Maker::class
{
        isa => [ qw( Expirable ) ],
        public =>
        {
                bool => [ qw( isin ) ],
                int => [ qw( logincount passfailed ) ],
                string => [ qw( userid passwd lastvisitdate passlastfailed ) ],
        },
};
our $VERSION = '0.02';
# Preloaded methods go here.
sub _preinit
{
        my $this = shift;
                $this->logincount( 0 );
                $this->passfailed( 0 );
                $this->isin(0);
}
sub login : method
{
        my $this = shift;
        my $passwd = shift || die __PACKAGE__."login() needs a defined passwd argument";
        #$this->debugPrint( sprintf "LOGIN COMPARE '%s' '%s'\n", $this->passwd, $passwd );
        if( $this->passwd && defined $passwd )
        {
                if( $this->passwd eq $passwd)
                {
                        #$this->debugPrint( sprintf "'%s' comes in..\n\n", $this->userid );
                        $this->lastvisitdate( time );
                        $this->logincount( $this->logincount + 1 );
                        $this->isin(1);
                        return 1;
                }
        }
        $this->passfailed( $this->passfailed + 1 );
        $this->passlastfailed( time );
        $this->isin(0);
return undef;
}
sub logout : method
{
        my $this = shift;
        #$this->debugPrint( sprintf "'%s' logged out !\n\n", $this->userid );
        $this->isin(0);
}
1;
__END__
# Below is stub documentation for your module. You better edit it!
=head1 NAME
Class::Maker::Example::Auth - object for authentications
=head1 SYNOPSIS
        use Class::Maker::Example::Auth;
                Class::Maker::Example::Auth->new();
=head1 DESCRIPTION
This is just an example. Please have a look within the sourcecode of this module.
=head2 EXPORT
None by default.
=head1 AUTHOR
Murat Uenalan, <muenalan@cpan.org>
=head1 SEE ALSO
perl(1).
=cut