| File | /usr/share/perl5/CGI/Session/ID/md5.pm | Statements Executed | 16 | Total Time | 0.00028 seconds |
| Calls | Inclusive Time | Subroutine | |
|---|---|---|---|
| 1 | 0.00010 | CGI::Session::ID::md5:: | generate_id |
| 0 | 0 | CGI::Session::ID::md5:: | BEGIN |
| Line | Stmts. | Exclusive Time | Avg. | Code |
|---|---|---|---|---|
| 1 | package CGI::Session::ID::md5; | |||
| 2 | ||||
| 3 | # $Id: md5.pm 351 2006-11-24 14:16:50Z markstos $ | |||
| 4 | ||||
| 5 | 3 | 0.00003 | 0.00001 | use strict; # spent 0.00001s making 1 calls to strict::import |
| 6 | 3 | 0.00003 | 0.00001 | use Digest::MD5; # spent 0.00004s making 1 calls to Exporter::import |
| 7 | 3 | 0.00011 | 0.00004 | use CGI::Session::ErrorHandler; # spent 3e-06s making 1 calls to 1 |
| 8 | ||||
| 9 | 1 | 1e-06 | 1e-06 | $CGI::Session::ID::md5::VERSION = '4.20'; |
| 10 | 1 | 3e-06 | 3e-06 | @CGI::Session::ID::md5::ISA = qw( CGI::Session::ErrorHandler ); |
| 11 | ||||
| 12 | 1 | 2e-06 | 2e-06 | *generate = \&generate_id; |
| 13 | # spent 0.00010s within CGI::Session::ID::md5::generate_id which was called:
# 1 times (0.00010s) by CGI::Session::new at line 74 of /usr/share/perl5/CGI/Session.pm sub generate_id { | |||
| 14 | 3 | 0.00009 | 0.00003 | my $md5 = new Digest::MD5(); # spent 0.00002s making 1 calls to Digest::MD5::new |
| 15 | $md5->add($$ , time() , rand(time) ); # spent 0.00003s making 1 calls to Digest::MD5::add | |||
| 16 | return $md5->hexdigest(); # spent 0.00001s making 1 calls to Digest::MD5::hexdigest | |||
| 17 | } | |||
| 18 | ||||
| 19 | ||||
| 20 | 1 | 6e-06 | 6e-06 | 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 |