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:
Unknown directive: =no
Unknown directive: =cu
Unknown directive: =z
Unknown directive: =COMMANDS
Unknown directive: =auto
To install Net::DirectConnect, copy and paste the appropriate command in to your terminal.
cpanm
cpanm Net::DirectConnect
CPAN shell
perl -MCPAN -e shell install Net::DirectConnect
For more information on module installation, please visit the detailed CPAN module installation guide.