File Coverage

blib/lib/CGI/Session/ID/md5.pm
Criterion Covered Total %
statement 10 10 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 14 15 93.3


line stmt bran cond sub pod time code
1             package CGI::Session::ID::md5;
2              
3             # $Id$
4              
5 19     19   116 use strict;
  19         43  
  19         719  
6 19     19   6681 use Crypt::SysRandom qw( random_bytes );
  19         24773  
  19         1176  
7 19     19   110 use CGI::Session::ErrorHandler;
  19         30  
  19         1584  
8              
9             $CGI::Session::ID::md5::VERSION = '4.49';
10             @CGI::Session::ID::md5::ISA = qw( CGI::Session::ErrorHandler );
11              
12             *generate = \&generate_id;
13 28     28 0 341 sub generate_id { return unpack("H*", random_bytes(16)) }
14              
15             1;
16              
17             =pod
18              
19             =head1 NAME
20              
21             CGI::Session::ID::md5 - default CGI::Session ID generator
22              
23             =head1 SYNOPSIS
24              
25             use CGI::Session;
26             $s = CGI::Session->new("id:md5", undef);
27              
28             =head1 DESCRIPTION
29              
30             CGI::Session::ID::MD5 is to generate MD5 encoded hexadecimal random ids. The library does not require any arguments.
31              
32             =head1 LICENSING
33              
34             For support and licensing see L
35              
36             =cut