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 58:
Unknown directive: =no
- Around line 78:
Unknown directive: =cu
- Around line 250:
Unknown directive: =z
- Around line 480:
Unknown directive: =z
- Around line 540:
Unknown directive: =z
- Around line 554:
Unknown directive: =COMMANDS
- Around line 705:
Unknown directive: =auto
- Around line 794:
Unknown directive: =no