File Coverage

blib/lib/Auth/ActiveDirectory/User.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	18	18	100.0
condition			n/a
subroutine	12	12	100.0
pod	10	10	100.0
total	77	77	100.0

package Auth::ActiveDirectory::User;

use strict;
use warnings;

=head1 NAME

Auth::ActiveDirectory::User - Authentication module for MS ActiveDirectory

=head1 VERSION

Version 0.02

=cut

our $VERSION = '0.02';

=head1 SYNOPSIS

Quick summary of what the module does.

=head1 SUBROUTINES/METHODS

=cut

=head2 new

Constructor

=cut

sub new {
    my $class = shift;
    my $self  = {@_};
    bless $self, $class;
    return $self;
}

=head2 firstname

Getter/Setter for internal hash key firstname.

=cut

sub firstname {
    return $_[0]->{firstname} unless $_[1];
    $_[0]->{firstname} = $_[1];
    return $_[0]->{firstname};
}

=head2 groups

Getter/Setter for internal hash key groups.

=cut

sub groups {
    return $_[0]->{groups} unless $_[1];
    $_[0]->{groups} = $_[1];
    return $_[0]->{groups};
}

=head2 surname

Getter/Setter for internal hash key surname.

=cut

sub surname {
    return $_[0]->{surname} unless $_[1];
    $_[0]->{surname} = $_[1];
    return $_[0]->{surname};
}

=head2 uid

Getter/Setter for internal hash key uid.

=cut

sub uid {
    return $_[0]->{uid} unless $_[1];
    $_[0]->{uid} = $_[1];
    return $_[0]->{uid};
}

=head2 user

Getter/Setter for internal hash key user.

=cut

sub user {
    return $_[0]->{user} unless $_[1];
    $_[0]->{user} = $_[1];
    return $_[0]->{user};
}

=head2 display_name

Getter/Setter for internal hash key display_name.

=cut

sub display_name {
    return $_[0]->{display_name} unless $_[1];
    $_[0]->{display_name} = $_[1];
    return $_[0]->{display_name};
}

=head2 mail

Getter/Setter for internal hash key mail.

=cut

sub mail {
    return $_[0]->{mail} unless $_[1];
    $_[0]->{mail} = $_[1];
    return $_[0]->{mail};
}

=head2 last_password_set

Getter/Setter for internal hash key last_password_set.
Timestamp is converted to unix timestamp, there's no reason to use these
strange AD timestamp.

=cut

sub last_password_set {
    return $_[0]->{last_password_set} unless $_[1];
    $_[0]->{last_password_set} = $_[1];
    return $_[0]->{last_password_set};
}

=head2 account_expires

Getter/Setter for internal hash key last_password_set.
Timestamp is converted to unix timestamp, there's no reason to use these
strange AD timestamp.
undef means account never expires

=cut

sub account_expires {
    return $_[0]->{account_expires} unless $_[1];
    $_[0]->{account_expires} = $_[1];
    return $_[0]->{account_expires};
}



1;    # End of uth::ActiveDirectory::User

__END__