Filename	/usr/share/perl5/Date/Calc.pm
Statements	Executed 19 statements in 910µs

Subroutines

Calls	P	F	Exclusive Time	Inclusive Time	Subroutine
1	1	1	1.97ms	5.46ms	Date::Calc::::BEGIN@18Date::Calc::BEGIN@18
1	1	1	10µs	21µs	Date::Calc::::BEGIN@14Date::Calc::BEGIN@14
1	1	1	8µs	129µs	Date::Calc::::BEGIN@15Date::Calc::BEGIN@15
0	0	0	0s	0s	Date::Calc::::VersionDate::Calc::Version

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

Line	State ments	Time on line	Calls	Time in subs	Code
1
2					###############################################################################
3					## ##
4					## Copyright (c) 1995 - 2009 by Steffen Beyer. ##
5					## All rights reserved. ##
6					## ##
7					## This package is free software; you can redistribute it ##
8					## and/or modify it under the same terms as Perl itself. ##
9					## ##
10					###############################################################################
11
12					package Date::Calc;
13
14	2	27µs	2	32µs	# spent 21µs (10+11) within Date::Calc::BEGIN@14 which was called: # once (10µs+11µs) by C4::Dates::BEGIN@29 at line 14 use strict; # spent 21µs making 1 call to Date::Calc::BEGIN@14 # spent 11µs making 1 call to strict::import
15	2	170µs	2	251µs	# spent 129µs (8+122) within Date::Calc::BEGIN@15 which was called: # once (8µs+122µs) by C4::Dates::BEGIN@29 at line 15 use vars qw($XS_OK $XS_DISABLE @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $VERSION); # spent 129µs making 1 call to Date::Calc::BEGIN@15 # spent 122µs making 1 call to vars::import
16
17					BEGIN # Re-export imports from Date::Calc::XS or Date::Calc::PP:
18					# spent 5.46ms (1.97+3.49) within Date::Calc::BEGIN@18 which was called: # once (1.97ms+3.49ms) by C4::Dates::BEGIN@29 at line 43 {
19	1	600ns			require Exporter;
20	1	6µs			@ISA = qw(Exporter);
21	1	200ns			$XS_OK = 0;
22	1	300ns			unless ($XS_DISABLE and $XS_DISABLE) # prevent warning "used only once"
23					{
24					eval
25	1	300ns			{
26	1	636µs			require Date::Calc::XS;
27	1	700ns			@EXPORT = (@Date::Calc::XS::EXPORT);
28	1	3µs			@EXPORT_OK = (@Date::Calc::XS::EXPORT_OK);
29	1	4µs			%EXPORT_TAGS = (all => [@EXPORT_OK]);
30	1	4µs	1	240µs	Date::Calc::XS->import(@EXPORT,@EXPORT_OK); # spent 240µs making 1 call to Exporter::import
31					};
32	1	300ns			if ($@) { die $@ unless ($@ =~ /^Can't locate .*? at /); }
33	1	300ns			else { $XS_OK = 1; }
34					}
35	1	2µs			unless ($XS_OK)
36					{
37					require Date::Calc::PP;
38					@EXPORT = (@Date::Calc::PP::EXPORT);
39					@EXPORT_OK = (@Date::Calc::PP::EXPORT_OK);
40					%EXPORT_TAGS = (all => [@EXPORT_OK]);
41					Date::Calc::PP->import(@EXPORT,@EXPORT_OK);
42					}
43	1	52µs	1	5.46ms	} # spent 5.46ms making 1 call to Date::Calc::BEGIN@18
44
45					##################################################
46					## ##
47					## "Version()" is available but not exported ##
48					## in order to avoid possible name clashes. ##
49					## Call with "Date::Calc::Version()" instead! ##
50					## ##
51					##################################################
52
53	1	300ns			$VERSION = '6.3';
54
55					sub Version { return $VERSION; }
56
57	1	2µs			1;
58
59					__END__