← Index
NYTProf Performance Profile   « line view »
For /usr/local/libexec/sympa/task_manager-debug.pl
  Run on Tue Jun 1 22:32:51 2021
Reported on Tue Jun 1 22:35:15 2021

Filename/usr/local/lib/perl5/5.32/version.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
2754114.19ms4.19msversion::::(""version::("" (xsub)
0000s0sversion::::(boolversion::(bool (xsub)
0000s0sversion::::(cmpversion::(cmp (xsub)
0000s0sversion::::BEGIN@27version::BEGIN@27
0000s0sversion::::BEGIN@4version::BEGIN@4
0000s0sversion::::BEGIN@5version::BEGIN@5
0000s0sversion::::BEGIN@6version::BEGIN@6
0000s0sversion::::_VERSIONversion::_VERSION (xsub)
0000s0sversion::::__ANON__[:53]version::__ANON__[:53]
0000s0sversion::::__ANON__[:59]version::__ANON__[:59]
0000s0sversion::::importversion::import
0000s0sversion::::qvversion::qv (xsub)
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1#!perl -w
2package version;
3
4use 5.006002;
5use strict;
6use warnings::register;
7if ($] >= 5.015) {
8 warnings::register_categories(qw/version/);
9}
10
11our $VERSION = 0.9924;
12our $CLASS = 'version';
13our (@ISA, $STRICT, $LAX);
14
15# avoid using Exporter
16require version::regex;
17*version::is_lax = \&version::regex::is_lax;
18*version::is_strict = \&version::regex::is_strict;
19*LAX = \$version::regex::LAX;
20*LAX_DECIMAL_VERSION = \$version::regex::LAX_DECIMAL_VERSION;
21*LAX_DOTTED_DECIMAL_VERSION = \$version::regex::LAX_DOTTED_DECIMAL_VERSION;
22*STRICT = \$version::regex::STRICT;
23*STRICT_DECIMAL_VERSION = \$version::regex::STRICT_DECIMAL_VERSION;
24*STRICT_DOTTED_DECIMAL_VERSION = \$version::regex::STRICT_DOTTED_DECIMAL_VERSION;
25
26sub import {
27 no strict 'refs';
28 my ($class) = shift;
29
30 # Set up any derived class
31 unless ($class eq $CLASS) {
32 local $^W;
33 *{$class.'::declare'} = \&{$CLASS.'::declare'};
34 *{$class.'::qv'} = \&{$CLASS.'::qv'};
35 }
36
37 my %args;
38 if (@_) { # any remaining terms are arguments
39 map { $args{$_} = 1 } @_
40 }
41 else { # no parameters at all on use line
42 %args =
43 (
44 qv => 1,
45 'UNIVERSAL::VERSION' => 1,
46 );
47 }
48
49 my $callpkg = caller();
50
51 if (exists($args{declare})) {
52 *{$callpkg.'::declare'} =
53 sub {return $class->declare(shift) }
54 unless defined(&{$callpkg.'::declare'});
55 }
56
57 if (exists($args{qv})) {
58 *{$callpkg.'::qv'} =
59 sub {return $class->qv(shift) }
60 unless defined(&{$callpkg.'::qv'});
61 }
62
63 if (exists($args{'UNIVERSAL::VERSION'})) {
64 local $^W;
65 *UNIVERSAL::VERSION
66 = \&{$CLASS.'::_VERSION'};
67 }
68
69 if (exists($args{'VERSION'})) {
70 *{$callpkg.'::VERSION'} = \&{$CLASS.'::_VERSION'};
71 }
72
73 if (exists($args{'is_strict'})) {
74 *{$callpkg.'::is_strict'} = \&{$CLASS.'::is_strict'}
75 unless defined(&{$callpkg.'::is_strict'});
76 }
77
78 if (exists($args{'is_lax'})) {
79 *{$callpkg.'::is_lax'} = \&{$CLASS.'::is_lax'}
80 unless defined(&{$callpkg.'::is_lax'});
81 }
82}
83
84
851;
 
# spent 4.19ms within version::("" which was called 2754 times, avg 2µs/call: # 2754 times (4.19ms+0s) by Sympa::DatabaseDriver::PostgreSQL::CORE:match at line 93 of /usr/local/libexec/sympa/Sympa/DatabaseDriver/PostgreSQL.pm, avg 2µs/call
sub version::(""; # xsub