Filename | /usr/local/src/github.com/foswiki/core/lib/CPAN/lib/CGI/Session/ID/md5.pm |
Statements | Executed 10 statements in 282µs |
Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
---|---|---|---|---|---|
1 | 1 | 1 | 27µs | 36µs | BEGIN@5 | CGI::Session::ID::md5::
1 | 1 | 1 | 22µs | 62µs | BEGIN@6 | CGI::Session::ID::md5::
1 | 1 | 1 | 9µs | 9µs | BEGIN@7 | CGI::Session::ID::md5::
0 | 0 | 0 | 0s | 0s | generate_id | CGI::Session::ID::md5::
Line | State ments |
Time on line |
Calls | Time in subs |
Code |
---|---|---|---|---|---|
1 | package CGI::Session::ID::md5; | ||||
2 | |||||
3 | # $Id: md5.pm 420 2008-07-08 01:23:06Z markstos $ | ||||
4 | |||||
5 | 2 | 48µs | 2 | 44µs | # spent 36µs (27+8) within CGI::Session::ID::md5::BEGIN@5 which was called:
# once (27µs+8µs) by CGI::Session::_load_pluggables at line 5 # spent 36µs making 1 call to CGI::Session::ID::md5::BEGIN@5
# spent 8µs making 1 call to strict::import |
6 | 2 | 50µs | 2 | 102µs | # spent 62µs (22+40) within CGI::Session::ID::md5::BEGIN@6 which was called:
# once (22µs+40µs) by CGI::Session::_load_pluggables at line 6 # spent 62µs making 1 call to CGI::Session::ID::md5::BEGIN@6
# spent 40µs making 1 call to Exporter::import |
7 | 2 | 162µs | 1 | 9µs | # spent 9µs within CGI::Session::ID::md5::BEGIN@7 which was called:
# once (9µs+0s) by CGI::Session::_load_pluggables at line 7 # spent 9µs making 1 call to CGI::Session::ID::md5::BEGIN@7 |
8 | |||||
9 | 1 | 2µs | $CGI::Session::ID::md5::VERSION = '4.33'; | ||
10 | 1 | 9µs | @CGI::Session::ID::md5::ISA = qw( CGI::Session::ErrorHandler ); | ||
11 | |||||
12 | 1 | 3µ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 | 7µ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 |