File Coverage

blib/lib/Digest/Adler32/XS.pm

Criterion	Covered	Total	%
statement	23	28	82.1
branch	1	2	50.0
condition			n/a
subroutine	6	7	85.7
pod	0	4	0.0
total	30	41	73.1

package Digest::Adler32::XS;

use warnings;
use strict;

our $VERSION = '0.03';

use base qw(Digest::base DynaLoader);

bootstrap Digest::Adler32::XS;

sub new {
    my $class = shift;
    if (ref $class) {
        $$class = 1;  # reset
        return $class;
    }
    my $adler_state = 1;
    return bless \$adler_state, $class;
}

sub clone {
    my $self = shift;
    my $adler_state = $$self;
    return bless \$adler_state, ref($self);
}

sub add {
    my ($self, @args) = @_;
    my $current = $$self;
    for my $buf (@args) {
        $current = adler32($current, $buf);
    }
    $$self = $current;
    return $self;
}

sub digest {
    my $self = shift;
    my $digest = pack("N", $$self);
    $$self = 1;  # reset
    return $digest;
}

bootstrap Digest::Adler32::XS;

1;

__END__