| File | /usr/share/perl5/CGI/Session/ID/md5.pm |
| Statements Executed | 12 |
| Total Time | 0.0002321 seconds |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 0 | 0 | 0 | 0s | 0s | CGI::Session::ID::md5::BEGIN |
| 0 | 0 | 0 | 0s | 0s | CGI::Session::ID::md5::generate_id |
| Line | Stmts. | Exclusive Time | Avg. | Code |
|---|---|---|---|---|
| 1 | package CGI::Session::ID::md5; | |||
| 2 | ||||
| 3 | # $Id: md5.pm 420 2008-07-08 01:23:06Z markstos $ | |||
| 4 | ||||
| 5 | 2 | 46µs | 23µs | use strict; # spent 20µs making 1 call to strict::import |
| 6 | 3 | 41µs | 14µs | use Digest::MD5; # spent 44µs making 1 call to Exporter::import |
| 7 | 3 | 128µs | 42µs | use CGI::Session::ErrorHandler; # spent 15µs making 1 call to UNIVERSAL::import |
| 8 | ||||
| 9 | 1 | 800ns | 800ns | $CGI::Session::ID::md5::VERSION = '4.33'; |
| 10 | 1 | 10µs | 10µs | @CGI::Session::ID::md5::ISA = qw( CGI::Session::ErrorHandler ); |
| 11 | ||||
| 12 | 1 | 2µs | 2µs | *generate = \&generate_id; |
| 13 | sub generate_id { | |||
| 14 | my $md5 = new Digest::MD5(); | |||
| 15 | $md5->add($$ , time() , rand(time) ); | |||
| 16 | return $md5->hexdigest(); | |||
| 17 | } | |||
| 18 | ||||
| 19 | ||||
| 20 | 1 | 6µs | 6µs | 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 = new CGI::Session("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 |