sub tiger ($) { local ($_) = @_; #use Mhash qw( mhash mhash_hex MHASH_TIGER); #eval "use MIME::Base32 qw( RFC ); use Digest::Tiger;" or $self->log('err', 'cant use', $@); #$_.=("\x00"x(1024 - length $_)); print ( 'hlen', length $_); #Digest::Tiger::hash($_); eval { Net::DirectConnect::TigerHash::tthbin($_); } #mhash(Mhash::MHASH_TIGER, $_); } sub hash ($) { base32( tiger( $_[0] ) ); }
#shift if $_[0] eq __PACKAGE__; return $self;
}
8 POD Errors
The following errors were encountered while parsing the POD:
- Around line 61:
Unknown directive: =no
- Around line 82:
Unknown directive: =cu
- Around line 332:
Unknown directive: =z
- Around line 588:
Unknown directive: =z
- Around line 656:
Unknown directive: =z
- Around line 671:
Unknown directive: =COMMANDS
- Around line 843:
Unknown directive: =auto
- Around line 941:
Unknown directive: =no