← Index
NYTProf Performance Profile   « block view • line view • sub view »
For /usr/bin/epoll_server.pl
  Run on Wed Jan 5 05:34:33 2011
Reported on Wed Jan 5 05:39:24 2011

File /usr/lib/perl5/vendor_perl/5.10.1/YAML/Tag.pm
Statements Executed 11
Statement Execution Time 834µs
Subroutines — ordered by exclusive time
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11148µs59µsYAML::Tag::::BEGIN@3YAML::Tag::BEGIN@3
11143µs198µsYAML::Tag::::BEGIN@8YAML::Tag::BEGIN@8
11132µs90µsYAML::Tag::::BEGIN@4YAML::Tag::BEGIN@4
0000s0sYAML::Tag::::__ANON__[:8]YAML::Tag::__ANON__[:8]
0000s0sYAML::Tag::::canonicalYAML::Tag::canonical
0000s0sYAML::Tag::::newYAML::Tag::new
0000s0sYAML::Tag::::shortYAML::Tag::short
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package YAML::Tag;
2
33272µs271µs
# spent 59µs (48+12) within YAML::Tag::BEGIN@3 which was called # once (48µs+12µs) by YAML::Node::BEGIN@7 at line 3
use strict;
# spent 59µs making 1 call to YAML::Tag::BEGIN@3 # spent 12µs making 1 call to strict::import
43206µs2148µs
# spent 90µs (32+58) within YAML::Tag::BEGIN@4 which was called # once (32µs+58µs) by YAML::Node::BEGIN@7 at line 4
use warnings;
# spent 90µs making 1 call to YAML::Tag::BEGIN@4 # spent 58µs making 1 call to warnings::import
5
613µsour $VERSION = '0.71';
7
83344µs2352µs
# spent 198µs (43+154) within YAML::Tag::BEGIN@8 which was called # once (43µs+154µs) by YAML::Node::BEGIN@7 at line 8
use overload '""' => sub { ${$_[0]} };
# spent 198µs making 1 call to YAML::Tag::BEGIN@8 # spent 154µs making 1 call to overload::import
9
10sub new {
11 my ($class, $self) = @_;
12 bless \$self, $class
13}
14
15sub short {
16 ${$_[0]}
17}
18
19sub canonical {
20 ${$_[0]}
21}
22
2318µs1;
24
25__END__
26
27=head1 NAME
28
29YAML::Tag - Tag URI object class for YAML
30
31=head1 SYNOPSIS
32
33 use YAML::Tag;
34
35=head1 DESCRIPTION
36
37Used by YAML::Node.
38
39=head1 AUTHOR
40
41Ingy döt Net <ingy@cpan.org>
42
43=head1 COPYRIGHT
44
45Copyright (c) 2006. Ingy döt Net. All rights reserved.
46
47This program is free software; you can redistribute it and/or modify it
48under the same terms as Perl itself.
49
50See L<http://www.perl.com/perl/misc/Artistic.html>
51
52=cut