/usr/local/CPAN/Schema-RDBMS-AUS/Schema/RDBMS/AUS/Crypt/MD5.pm

• package Schema::RDBMS::AUS::Crypt::MD5
  • crypt
• EOF

#!perl

package Schema::RDBMS::AUS::Crypt::MD5;

use strict;
use warnings;
use Digest::MD5 qw(md5_hex);

return 1;

sub crypt {
    return md5_hex($_[1]);
}