view release on metacpan or  search on metacpan

DigestMD5.pm  view on Meta::CPAN

114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
package Authen::DigestMD5::Response;
our @ISA=qw(Authen::DigestMD5::Packet);
 
use strict;
use warnings;
 
use Digest::MD5 qw(md5_hex md5);
use Carp;
 
sub new {
    my $this=shift->SUPER::new(@_);
    $this->{_nc}={};
    return $this;
}
 
sub _public {
    my $this=shift;
    return grep { $_=~/^[a-z]/i and
                      $_ ne 'password' } keys(%$this);
}