File Coverage

blib/lib/Mojolicious/Plugin/DigestAuth/Util.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	2	2	100.0
condition	2	3	66.6
subroutine	6	6	100.0
pod	0	2	0.0
total	29	32	90.6

package Mojolicious::Plugin::DigestAuth::Util;

use strict;
use warnings;

use Mojo::Util qw{md5_sum unquote};
use base 'Exporter';

our @EXPORT_OK = qw{checksum parse_header};

sub checksum
{
  md5_sum join ':', grep(defined, @_);
}

sub parse_header
{
    my $header = shift;
    my $parsed;

    # TODO: I think there's a browser with a quoting issue that might affect this
    if($header && $header =~ s/^Digest\s//) {
        while($header =~ /([a-zA-Z]+)=(".*?"|[^,]+)/g){
	  $parsed->{$1} = unquote($2);
        }
    }

    $parsed;
}


1;