← Index
NYTProf Performance Profile   « block view • line view • sub view »
For 05.Domain_and_Item.t
  Run on Tue May 4 17:21:41 2010
Reported on Tue May 4 17:23:14 2010

File /usr/local/lib/perl5/site_perl/5.10.1/DateTime/TimeZone/Floating.pm
Statements Executed 44
Statement Execution Time 310µs
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
91190µs90µsDateTime::TimeZone::Floating::::newDateTime::TimeZone::Floating::new
125114µs14µsDateTime::TimeZone::Floating::::is_floatingDateTime::TimeZone::Floating::is_floating
11113µs16µsDateTime::TimeZone::Floating::::BEGIN@3DateTime::TimeZone::Floating::BEGIN@3
1118µs998µsDateTime::TimeZone::Floating::::BEGIN@9DateTime::TimeZone::Floating::BEGIN@9
1117µs7µsDateTime::TimeZone::Floating::::BEGIN@8DateTime::TimeZone::Floating::BEGIN@8
1117µs37µsDateTime::TimeZone::Floating::::BEGIN@5DateTime::TimeZone::Floating::BEGIN@5
0000s0sDateTime::TimeZone::Floating::::STORABLE_thawDateTime::TimeZone::Floating::STORABLE_thaw
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package DateTime::TimeZone::Floating;
2
3325µs219µs
# spent 16µs (13+3) within DateTime::TimeZone::Floating::BEGIN@3 which was called # once (13µs+3µs) by DateTime::TimeZone::BEGIN@11 at line 3
use strict;
# spent 16µs making 1 call to DateTime::TimeZone::Floating::BEGIN@3 # spent 3µs making 1 call to strict::import
4
5326µs267µs
# spent 37µs (7+30) within DateTime::TimeZone::Floating::BEGIN@5 which was called # once (7µs+30µs) by DateTime::TimeZone::BEGIN@11 at line 5
use vars qw ($VERSION @ISA);
# spent 37µs making 1 call to DateTime::TimeZone::Floating::BEGIN@5 # spent 30µs making 1 call to vars::import
61300ns$VERSION = 0.01;
7
8324µs17µs
# spent 7µs within DateTime::TimeZone::Floating::BEGIN@8 which was called # once (7µs+0s) by DateTime::TimeZone::BEGIN@11 at line 8
use DateTime::TimeZone;
# spent 7µs making 1 call to DateTime::TimeZone::Floating::BEGIN@8
93107µs21.99ms
# spent 998µs (8+990) within DateTime::TimeZone::Floating::BEGIN@9 which was called # once (8µs+990µs) by DateTime::TimeZone::BEGIN@11 at line 9
use base 'DateTime::TimeZone::OffsetOnly';
# spent 998µs making 1 call to DateTime::TimeZone::Floating::BEGIN@9 # spent 990µs making 1 call to base::import
10
11
# spent 90µs within DateTime::TimeZone::Floating::new which was called 9 times, avg 10µs/call: # 9 times (90µs+0s) by DateTime::TimeZone::new at line 48 of DateTime/TimeZone.pm, avg 10µs/call
sub new {
1298µs my $class = shift;
13
14987µs return bless {
15 name => 'floating',
16 offset => 0
17 }, $class;
18}
19
201232µs
# spent 14µs within DateTime::TimeZone::Floating::is_floating which was called 12 times, avg 1µs/call: # 4 times (7µs+0s) by DateTime::_calc_utc_rd at line 338 of DateTime.pm, avg 2µs/call # 4 times (3µs+0s) by DateTime::_calc_local_rd at line 379 of DateTime.pm, avg 750ns/call # 2 times (2µs+0s) by DateTime::_handle_offset_modifier at line 275 of DateTime.pm, avg 950ns/call # once (2µs+0s) by DateTime::_compare at line 1803 of DateTime.pm # once (600ns+0s) by DateTime::set_time_zone at line 1944 of DateTime.pm
sub is_floating {1}
21
22sub STORABLE_thaw {
23 my $self = shift;
24 my $cloning = shift;
25 my $serialized = shift;
26
27 my $class = ref $self || $self;
28
29 my $obj;
30 if ( $class->isa(__PACKAGE__) ) {
31 $obj = __PACKAGE__->new();
32 }
33 else {
34 $obj = $class->new();
35 }
36
37 %$self = %$obj;
38
39 return $self;
40}
41
4213µs1;
43
44__END__
45
46=head1 NAME
47
48DateTime::TimeZone::Floating - A time zone that is always local
49
50=head1 SYNOPSIS
51
52 my $floating_tz = DateTime::TimeZone::Floating->new;
53
54=head1 DESCRIPTION
55
56This class is used to provide the DateTime::TimeZone API needed by
57DateTime.pm, but for floating times, as defined by the RFC 2445 spec.
58A floating time has no time zone, and has an effective offset of zero.
59
60=head1 USAGE
61
62This class has the same methods as a real time zone object, but the
63C<short_name_for_datetime()>, and C<category()> methods both return
64undef.
65
66=head1 AUTHOR
67
68Dave Rolsky, <autarch@urth.org>
69
70=head1 COPYRIGHT & LICENSE
71
72Copyright (c) 2003-2008 David Rolsky. All rights reserved. This
73program is free software; you can redistribute it and/or modify it
74under the same terms as Perl itself.
75
76The full text of the license can be found in the LICENSE file included
77with this module.
78
79=cut