Profile of /opt/flows/lib/lib/perl5/Any/URI/Escape.pm

Filename	/opt/flows/lib/lib/perl5/Any/URI/Escape.pm
Statements	Executed 19 statements in 302µs

Subroutines
Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	70µs	70µs	Any::URI::Escape::::BEGIN@17Any::URI::Escape::BEGIN@17
1	1	1	14µs	28µs	Any::URI::Escape::::BEGIN@3Any::URI::Escape::BEGIN@3
1	1	1	10µs	76µs	Any::URI::Escape::::BEGIN@14Any::URI::Escape::BEGIN@14
1	1	1	9µs	13µs	Any::URI::Escape::::BEGIN@4Any::URI::Escape::BEGIN@4
1	1	1	8µs	20µs	Any::URI::Escape::::BEGIN@33Any::URI::Escape::BEGIN@33

Call graph for these subroutines as a Graphviz dot language file.

Line	State ments	Time on line	Calls	Time in subs	Code
1					package Any::URI::Escape;
2
3	2	28µs	2	42µs	# spent 28µs (14+14) within Any::URI::Escape::BEGIN@3 which was called: # once (14µs+14µs) by Search::Elasticsearch::Util::API::Path::BEGIN@5 at line 3 use strict; # spent 28µs making 1 call to Any::URI::Escape::BEGIN@3 # spent 14µs making 1 call to strict::import
4	2	45µs	2	17µs	# spent 13µs (9+4) within Any::URI::Escape::BEGIN@4 which was called: # once (9µs+4µs) by Search::Elasticsearch::Util::API::Path::BEGIN@5 at line 4 use warnings; # spent 13µs making 1 call to Any::URI::Escape::BEGIN@4 # spent 4µs making 1 call to warnings::import
5
6	1	400ns			our $VERSION = 0.01;
7
8					=head1 NAME
9
10					Any::URI::Escape - Load URI::Escape::XS preferentially over URI::Escape
11
12					=cut
13
14	2	85µs	2	142µs	# spent 76µs (10+66) within Any::URI::Escape::BEGIN@14 which was called: # once (10µs+66µs) by Search::Elasticsearch::Util::API::Path::BEGIN@5 at line 14 use base 'Exporter'; # spent 76µs making 1 call to Any::URI::Escape::BEGIN@14 # spent 66µs making 1 call to base::import
15	1	1µs			our @EXPORT = qw( uri_escape uri_unescape );
16
17					# spent 70µs within Any::URI::Escape::BEGIN@17 which was called: # once (70µs+0s) by Search::Elasticsearch::Util::API::Path::BEGIN@5 at line 37 BEGIN {
18
19	1	16µs			eval 'require URI::Escape::XS'; # spent 40µs executing statements in string eval
20
21	1	200ns			my $pkg;
22	1	400ns			if ($@) {
23
24					# xs version not installed, use URI::Escape
25	1	500ns			require URI::Escape;
26	1	600ns			$pkg = 'URI::Escape';
27
28					}
29					else {
30
31					$pkg = 'URI::Escape::XS';
32					}
33	2	65µs	2	32µs	# spent 20µs (8+12) within Any::URI::Escape::BEGIN@33 which was called: # once (8µs+12µs) by Search::Elasticsearch::Util::API::Path::BEGIN@5 at line 33 no strict 'refs'; # spent 20µs making 1 call to Any::URI::Escape::BEGIN@33 # spent 12µs making 1 call to strict::unimport
34	1	200ns			my $class = __PACKAGE__;
35	1	5µs			{"$class\::uri_escape"} = {"$pkg\::uri_escape"};
36	1	8µs			{"$class\::uri_unescape"} = {"$pkg\::uri_unescape"};
37	1	42µs	1	70µs	} # spent 70µs making 1 call to Any::URI::Escape::BEGIN@17
38
39
40	1	3µs			1;
41
42					=head1 SYNOPSIS
43
44					use Any::URI::Escape;
45					$escaped_url = uri_escape($url);
46
47					# URI::Escape::XS will be used instead of URI::Escape if it is installed.
48
49					=head1 DESCRIPTION
50
51					URI::Escape is great, but URI::Escape::XS is faster. This module loads
52					URI::Escape::XS and imports the two most common methods if XS is installed.
53
54					The insides of this module aren't completely shaken out yet, so patches
55					welcome.
56
57					=head1 SEE ALSO
58
59					L<URI::Escape>
60
61					L<URI::Escape::XS>
62
63					=head1 AUTHOR
64
65					Fred Moyer, E<lt>fred@redhotpenguin.comE<gt>
66
67					=head1 COPYRIGHT AND LICENSE
68
69					Copyright (C) 2010 by Fred Moyer
70
71					This library is free software; you can redistribute it and/or modify
72					it under the same terms as Perl itself, either Perl version 5.12.0 or,
73					at your option, any later version of Perl 5 you may have available.
74
75
76					=cut