← Index
NYTProf Performance Profile   « block view • line view • sub view »
For /usr/share/koha/opac/cgi-bin/opac/opac-search.pl
  Run on Tue Oct 15 17:10:45 2013
Reported on Tue Oct 15 17:11:57 2013

Filename/usr/lib/perl/5.10/Math/BigInt/FastCalc.pm
StatementsExecuted 58 statements in 1.06ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11116.3ms17.5msMath::BigInt::FastCalc::::BEGIN@8Math::BigInt::FastCalc::BEGIN@8
111180µs191µsMath::BigInt::FastCalc::::BEGIN@25Math::BigInt::FastCalc::BEGIN@25
111103µs103µsMath::BigInt::FastCalc::::BEGIN@3Math::BigInt::FastCalc::BEGIN@3
11161µs61µsMath::BigInt::FastCalc::::bootstrapMath::BigInt::FastCalc::bootstrap (xsub)
11136µs43µsMath::BigInt::FastCalc::::BEGIN@7Math::BigInt::FastCalc::BEGIN@7
11121µs49µsMath::BigInt::FastCalc::::BEGIN@42Math::BigInt::FastCalc::BEGIN@42
11119µs28µsMath::BigInt::FastCalc::::BEGIN@4Math::BigInt::FastCalc::BEGIN@4
11119µs19µsMath::BigInt::FastCalc::::_newMath::BigInt::FastCalc::_new (xsub)
11118µs18µsMath::BigInt::FastCalc::::_zeroMath::BigInt::FastCalc::_zero (xsub)
11114µs107µsMath::BigInt::FastCalc::::BEGIN@10Math::BigInt::FastCalc::BEGIN@10
1119µs15µsMath::BigInt::FastCalc::::importMath::BigInt::FastCalc::import
1116µs6µsMath::BigInt::FastCalc::::_set_XS_BASEMath::BigInt::FastCalc::_set_XS_BASE (xsub)
1112µs2µsMath::BigInt::FastCalc::::api_versionMath::BigInt::FastCalc::api_version (xsub)
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Math::BigInt::FastCalc;
2
33130µs1103µs
# spent 103µs within Math::BigInt::FastCalc::BEGIN@3 which was called: # once (103µs+0s) by Math::BigInt::BEGIN@1 at line 3
use 5.006;
# spent 103µs making 1 call to Math::BigInt::FastCalc::BEGIN@3
4360µs236µs
# spent 28µs (19+8) within Math::BigInt::FastCalc::BEGIN@4 which was called: # once (19µs+8µs) by Math::BigInt::BEGIN@1 at line 4
use strict;
# spent 28µs making 1 call to Math::BigInt::FastCalc::BEGIN@4 # spent 8µs making 1 call to strict::import
5# use warnings; # dont use warnings for older Perls
6
7374µs249µs
# spent 43µs (36+6) within Math::BigInt::FastCalc::BEGIN@7 which was called: # once (36µs+6µs) by Math::BigInt::BEGIN@1 at line 7
use DynaLoader;
# spent 43µs making 1 call to Math::BigInt::FastCalc::BEGIN@7 # spent 6µs making 1 call to UNIVERSAL::import
83171µs217.5ms
# spent 17.5ms (16.3+1.19) within Math::BigInt::FastCalc::BEGIN@8 which was called: # once (16.3ms+1.19ms) by Math::BigInt::BEGIN@1 at line 8
use Math::BigInt::Calc;
# spent 17.5ms making 1 call to Math::BigInt::FastCalc::BEGIN@8 # spent 3µs making 1 call to Math::BigInt::Calc::import
9
103135µs2199µs
# spent 107µs (14+93) within Math::BigInt::FastCalc::BEGIN@10 which was called: # once (14µs+93µs) by Math::BigInt::BEGIN@1 at line 10
use vars qw/@ISA $VERSION $BASE $BASE_LEN/;
# spent 107µs making 1 call to Math::BigInt::FastCalc::BEGIN@10 # spent 92µs making 1 call to vars::import
11
12119µs@ISA = qw(DynaLoader);
13
1411µs$VERSION = '0.19';
15
16116µs1489µsbootstrap Math::BigInt::FastCalc $VERSION;
# spent 489µs making 1 call to DynaLoader::bootstrap
17
18##############################################################################
19# global constants, flags and accessory
20
21# announce that we are compatible with MBI v1.70 and up
22sub api_version () { 1; }
23
24BEGIN
25
# spent 191µs (180+11) within Math::BigInt::FastCalc::BEGIN@25 which was called: # once (180µs+11µs) by Math::BigInt::BEGIN@1 at line 51
{
26 # use Calc to override the methods that we do not provide in XS
27
28318µs for my $method (qw/
29 str
30 add sub mul div
31 rsft lsft
32 mod modpow modinv
33 gcd
34 pow root sqrt log_int fac nok
35 digit check
36 from_hex from_bin from_oct as_hex as_bin as_oct
37 zeros base_len
38 xor or and
39 alen 1ex
40 /)
41 {
423142µs278µs
# spent 49µs (21+29) within Math::BigInt::FastCalc::BEGIN@42 which was called: # once (21µs+29µs) by Math::BigInt::BEGIN@1 at line 42
no strict 'refs';
# spent 49µs making 1 call to Math::BigInt::FastCalc::BEGIN@42 # spent 29µs making 1 call to strict::unimport
4332153µs *{'Math::BigInt::FastCalc::_' . $method} = \&{'Math::BigInt::Calc::_' . $method};
44 }
45 my ($AND_BITS, $XOR_BITS, $OR_BITS, $BASE_LEN_SMALL, $MAX_VAL);
46
47 # store BASE_LEN and BASE to later pass it to XS code
48111µs ($BASE_LEN, $AND_BITS, $XOR_BITS, $OR_BITS, $BASE_LEN_SMALL, $MAX_VAL, $BASE) =
# spent 11µs making 1 call to Math::BigInt::Calc::_base_len
49 Math::BigInt::Calc::_base_len();
50
511119µs1191µs }
# spent 191µs making 1 call to Math::BigInt::FastCalc::BEGIN@25
52
53sub import
54
# spent 15µs (9+6) within Math::BigInt::FastCalc::import which was called: # once (9µs+6µs) by Math::BigInt::BEGIN@1 at line 1 of (eval 1023)[Math/BigInt.pm:2666]
{
55118µs16µs _set_XS_BASE($BASE, $BASE_LEN);
# spent 6µs making 1 call to Math::BigInt::FastCalc::_set_XS_BASE
56 }
57
58##############################################################################
59##############################################################################
60
6118µs1;
62__END__
 
# spent 19µs within Math::BigInt::FastCalc::_new which was called: # once (19µs+0s) by Math::BigInt::new at line 639 of Math/BigInt.pm
sub Math::BigInt::FastCalc::_new; # xsub
# spent 6µs within Math::BigInt::FastCalc::_set_XS_BASE which was called: # once (6µs+0s) by Math::BigInt::FastCalc::import at line 55
sub Math::BigInt::FastCalc::_set_XS_BASE; # xsub
# spent 18µs within Math::BigInt::FastCalc::_zero which was called: # once (18µs+0s) by Math::BigInt::new at line 586 of Math/BigInt.pm
sub Math::BigInt::FastCalc::_zero; # xsub
# spent 2µs within Math::BigInt::FastCalc::api_version which was called: # once (2µs+0s) by Math::BigInt::import at line 2672 of Math/BigInt.pm
sub Math::BigInt::FastCalc::api_version; # xsub
# spent 61µs within Math::BigInt::FastCalc::bootstrap which was called: # once (61µs+0s) by DynaLoader::bootstrap at line 215 of DynaLoader.pm
sub Math::BigInt::FastCalc::bootstrap; # xsub