← Index
NYTProf Performance Profile   « line view »
For script/ponapi
  Run on Wed Feb 10 15:51:26 2016
Reported on Thu Feb 11 09:43:12 2016

Filename/usr/local/share/perl/5.18.2/HTTP/Headers/ActionPack/Core/BaseHeaderList.pm
StatementsExecuted 14 statements in 391µs
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
11143µs56µsHTTP::Headers::ActionPack::Core::BaseHeaderList::::BEGIN@10HTTP::Headers::ActionPack::Core::BaseHeaderList::BEGIN@10
11112µs12µsHTTP::Headers::ActionPack::Core::BaseHeaderList::::BEGIN@2HTTP::Headers::ActionPack::Core::BaseHeaderList::BEGIN@2
11112µs49µsHTTP::Headers::ActionPack::Core::BaseHeaderList::::BEGIN@13HTTP::Headers::ActionPack::Core::BaseHeaderList::BEGIN@13
11110µs36µsHTTP::Headers::ActionPack::Core::BaseHeaderList::::BEGIN@16HTTP::Headers::ActionPack::Core::BaseHeaderList::BEGIN@16
11110µs14µsHTTP::Headers::ActionPack::Core::BaseHeaderList::::BEGIN@11HTTP::Headers::ActionPack::Core::BaseHeaderList::BEGIN@11
1119µs165µsHTTP::Headers::ActionPack::Core::BaseHeaderList::::BEGIN@14HTTP::Headers::ActionPack::Core::BaseHeaderList::BEGIN@14
0000s0sHTTP::Headers::ActionPack::Core::BaseHeaderList::::addHTTP::Headers::ActionPack::Core::BaseHeaderList::add
0000s0sHTTP::Headers::ActionPack::Core::BaseHeaderList::::add_header_valueHTTP::Headers::ActionPack::Core::BaseHeaderList::add_header_value
0000s0sHTTP::Headers::ActionPack::Core::BaseHeaderList::::as_stringHTTP::Headers::ActionPack::Core::BaseHeaderList::as_string
0000s0sHTTP::Headers::ActionPack::Core::BaseHeaderList::::iterableHTTP::Headers::ActionPack::Core::BaseHeaderList::iterable
0000s0sHTTP::Headers::ActionPack::Core::BaseHeaderList::::new_from_stringHTTP::Headers::ActionPack::Core::BaseHeaderList::new_from_string
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package HTTP::Headers::ActionPack::Core::BaseHeaderList;
2
# spent 12µs within HTTP::Headers::ActionPack::Core::BaseHeaderList::BEGIN@2 which was called: # once (12µs+0s) by parent::import at line 4
BEGIN {
317µs $HTTP::Headers::ActionPack::Core::BaseHeaderList::AUTHORITY = 'cpan:STEVAN';
4141µs112µs}
5{
621µs $HTTP::Headers::ActionPack::Core::BaseHeaderList::VERSION = '0.09';
7}
8# ABSTRACT: A Base Header List
9
10231µs270µs
# spent 56µs (43+13) within HTTP::Headers::ActionPack::Core::BaseHeaderList::BEGIN@10 which was called: # once (43µs+13µs) by parent::import at line 10
use strict;
# spent 56µs making 1 call to HTTP::Headers::ActionPack::Core::BaseHeaderList::BEGIN@10 # spent 13µs making 1 call to strict::import
11232µs218µs
# spent 14µs (10+4) within HTTP::Headers::ActionPack::Core::BaseHeaderList::BEGIN@11 which was called: # once (10µs+4µs) by parent::import at line 11
use warnings;
# spent 14µs making 1 call to HTTP::Headers::ActionPack::Core::BaseHeaderList::BEGIN@11 # spent 4µs making 1 call to warnings::import
12
13234µs285µs
# spent 49µs (12+37) within HTTP::Headers::ActionPack::Core::BaseHeaderList::BEGIN@13 which was called: # once (12µs+37µs) by parent::import at line 13
use Scalar::Util qw[ blessed ];
# spent 49µs making 1 call to HTTP::Headers::ActionPack::Core::BaseHeaderList::BEGIN@13 # spent 37µs making 1 call to Exporter::import
14236µs2322µs
# spent 165µs (9+156) within HTTP::Headers::ActionPack::Core::BaseHeaderList::BEGIN@14 which was called: # once (9µs+156µs) by parent::import at line 14
use HTTP::Headers::ActionPack::Util qw[ split_header_words ];
# spent 165µs making 1 call to HTTP::Headers::ActionPack::Core::BaseHeaderList::BEGIN@14 # spent 156µs making 1 call to Sub::Exporter::__ANON__[Sub/Exporter.pm:337]
15
162206µs236µs
# spent 36µs (10+27) within HTTP::Headers::ActionPack::Core::BaseHeaderList::BEGIN@16 which was called: # once (10µs+27µs) by parent::import at line 16
use parent 'HTTP::Headers::ActionPack::Core::Base';
# spent 36µs making 1 call to HTTP::Headers::ActionPack::Core::BaseHeaderList::BEGIN@16 # spent 27µs making 1 call to parent::import, recursion: max depth 2, sum of overlapping time 27µs
17
18sub new_from_string {
19 my ($class, $header_string) = @_;
20 my $list = $class->new;
21 foreach my $header ( split_header_words( $header_string ) ) {
22 $list->add_header_value( $header )
23 }
24 $list;
25}
26
27sub as_string {
28 my $self = shift;
29 join ', ' => map { blessed $_ ? $_->as_string : $_ } $self->iterable;
30}
31
32sub add { die "Abstract method" }
33sub add_header_value { die "Abstract method" }
34sub iterable { die "Abstract method" }
35
3612µs1;
37
38__END__