File Coverage

blib/lib/Apache/Auth/User/Digest.pm

Criterion	Covered	Total	%
statement	33	33	100.0
branch	3	6	50.0
condition	3	9	33.3
subroutine	11	11	100.0
pod	0	2	0.0
total	50	61	81.9

#
# Apache::Auth::User::Digest
# An Apache digest authentication user class.
#
# (C) 2003-2007 Julian Mehnle
# $Id: Digest.pm 31 2007-09-18 01:39:14Z julian $
#
##############################################################################

package Apache::Auth::User::Digest;

use version; our $VERSION = qv('0.120');

use warnings;
use strict;

use base qw(Apache::Auth::User);

use Carp;
use Digest::MD5;

# Constants:
##############################################################################

use constant TRUE   => (0 == 0);
use constant FALSE  => not TRUE;

# Interface:
##############################################################################

sub signature;
sub realm;

# Implementation:
##############################################################################

sub signature {
    my ($self) = @_;
    return
        (defined($self->name) and defined($self->realm)) ?
            $self->name . ':' . $self->realm
        :   undef;
}

sub realm {
    my ($self, @value) = @_;
    $self->{realm} = $value[0] if @value;
    return $self->{realm};
}

sub _build_password_digest {
    my ($self) = @_;

    croak("Unable to build password digest from incomplete data")
        if not defined($self->{realm}) or
           not defined($self->{name}) or
           not defined($self->{password});

    my $text = join(':', $self->{name}, $self->{realm}, $self->{password});
    return Digest::MD5::md5_hex($text);
}

TRUE;