← Index
NYTProf Performance Profile   « block view • line view • sub view »
For /usr/local/src/github.com/foswiki/core/bin/view
  Run on Sun Dec 4 17:17:59 2011
Reported on Sun Dec 4 17:26:47 2011

Filename/usr/local/src/github.com/foswiki/core/lib/CPAN/lib/CGI/Session/ID/md5.pm
StatementsExecuted 10 statements in 282µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11127µs36µsCGI::Session::ID::md5::::BEGIN@5CGI::Session::ID::md5::BEGIN@5
11122µs62µsCGI::Session::ID::md5::::BEGIN@6CGI::Session::ID::md5::BEGIN@6
1119µs9µsCGI::Session::ID::md5::::BEGIN@7CGI::Session::ID::md5::BEGIN@7
0000s0sCGI::Session::ID::md5::::generate_idCGI::Session::ID::md5::generate_id
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package CGI::Session::ID::md5;
2
3# $Id: md5.pm 420 2008-07-08 01:23:06Z markstos $
4
5248µs244µ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
use strict;
# spent 36µs making 1 call to CGI::Session::ID::md5::BEGIN@5 # spent 8µs making 1 call to strict::import
6250µs2102µ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
use Digest::MD5;
# spent 62µs making 1 call to CGI::Session::ID::md5::BEGIN@6 # spent 40µs making 1 call to Exporter::import
72162µs19µ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
use CGI::Session::ErrorHandler;
# spent 9µs making 1 call to CGI::Session::ID::md5::BEGIN@7
8
912µs$CGI::Session::ID::md5::VERSION = '4.33';
1019µs@CGI::Session::ID::md5::ISA = qw( CGI::Session::ErrorHandler );
11
1213µs*generate = \&generate_id;
13sub generate_id {
14 my $md5 = new Digest::MD5();
15 $md5->add($$ , time() , rand(time) );
16 return $md5->hexdigest();
17}
18
19
2017µs1;
21
22=pod
23
24=head1 NAME
25
26CGI::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
35CGI::Session::ID::MD5 is to generate MD5 encoded hexadecimal random ids. The library does not require any arguments.
36
37=head1 LICENSING
38
39For support and licensing see L<CGI::Session|CGI::Session>
40
41=cut