File Coverage

blib/lib/CGI/Session/ID/md5.pm
Criterion Covered Total %
statement 12 12 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 16 17 94.1


line stmt bran cond sub pod time code
1             package CGI::Session::ID::md5;
2              
3             # $Id$
4              
5 19     19   156 use strict;
  19         44  
  19         851  
6 19     19   129 use Digest::MD5;
  19         45  
  19         883  
7 19     19   113 use CGI::Session::ErrorHandler;
  19         38  
  19         6021  
8              
9             $CGI::Session::ID::md5::VERSION = '4.43';
10             @CGI::Session::ID::md5::ISA = qw( CGI::Session::ErrorHandler );
11              
12             *generate = \&generate_id;
13             sub generate_id {
14 23     23 0 247 my $md5 = Digest::MD5->new();
15 23         1701 $md5->add($$ , time() , rand(time) );
16 23         334 return $md5->hexdigest();
17             }
18              
19              
20             1;
21              
22             =pod
23              
24             =head1 NAME
25              
26             CGI::Session::ID::md5 - default CGI::Session ID generator
27              
28             =head1 SYNOPSIS
29              
30             use CGI::Session;
31             $s = CGI::Session->new("id:md5", undef);
32              
33             =head1 DESCRIPTION
34              
35             CGI::Session::ID::MD5 is to generate MD5 encoded hexadecimal random ids. The library does not require any arguments.
36              
37             =head1 LICENSING
38              
39             For support and licensing see L<CGI::Session|CGI::Session>
40              
41             =cut