1use strict; 2 3my $MODULE; 4 5BEGIN { 6 $MODULE = (-d "src") ? "Digest::SHA" : "Digest::SHA::PurePerl"; 7 eval "require $MODULE" || die $@; 8 $MODULE->import(qw( 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)); 19} 20 21BEGIN { 22 if ($ENV{PERL_CORE}) { 23 chdir 't' if -d 't'; 24 @INC = '../lib'; 25 } 26} 27 28print "1..1\n"; 29 30print "ok 1\n"; 31