6 $MODULE = (-e "SHA.pm") ? "Digest::SHA" : "Digest::SHA::PurePerl";
7 eval "require $MODULE" || die $@;
9 hmac_sha1 hmac_sha1_base64 hmac_sha1_hex
10 hmac_sha224 hmac_sha224_base64 hmac_sha224_hex
11 hmac_sha256 hmac_sha256_base64 hmac_sha256_hex
12 hmac_sha384 hmac_sha384_base64 hmac_sha384_hex
13 hmac_sha512 hmac_sha512_base64 hmac_sha512_hex
14 sha1 sha1_base64 sha1_hex
15 sha224 sha224_base64 sha224_hex
16 sha256 sha256_base64 sha256_hex
17 sha384 sha384_base64 sha384_hex
18 sha512 sha512_base64 sha512_hex));
22 if ($ENV{PERL_CORE}) {