← Index
NYTProf Performance Profile   « block view • line view • sub view »
For mojo-test.pl
  Run on Sat Feb 5 19:54:22 2011
Reported on Sat Feb 5 19:55:09 2011

Filename/Users/marcus/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/Mojo.pm
StatementsExecuted 35 statements in 886µs
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
1114.49ms345msMojo::::BEGIN@5Mojo::BEGIN@5
111923µs3.06msMojo::::BEGIN@6Mojo::BEGIN@6
11153µs346µsMojo::::newMojo::new
11125µs76µsMojo::::BEGIN@2Mojo::BEGIN@2
11116µs16µsMojo::::CORE:ftewriteMojo::CORE:ftewrite (opcode)
11113µs94µsMojo::::BEGIN@4Mojo::BEGIN@4
11112µs25µsMojo::::__ANON__[:11]Mojo::__ANON__[:11]
11111µs12µsMojo::::BEGIN@7Mojo::BEGIN@7
11110µs61µsMojo::::__ANON__[:12]Mojo::__ANON__[:12]
11110µs12µsMojo::::BEGIN@8Mojo::BEGIN@8
1119µs10µsMojo::::BEGIN@9Mojo::BEGIN@9
1118µs14µsMojo::::__ANON__[:13]Mojo::__ANON__[:13]
0000s0sMojo::::__ANON__[:15]Mojo::__ANON__[:15]
0000s0sMojo::::__ANON__[:16]Mojo::__ANON__[:16]
0000s0sMojo::::__ANON__[:18]Mojo::__ANON__[:18]
0000s0sMojo::::__ANON__[:19]Mojo::__ANON__[:19]
0000s0sMojo::::handlerMojo::handler
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1package Mojo;
2338µs276µs
# spent 76µs (25+51) within Mojo::BEGIN@2 which was called: # once (25µs+51µs) by Mojo::Base::import at line 2
use Mojo::Base -base;
# spent 76µs making 1 call to Mojo::BEGIN@2 # spent 51µs making 1 call to Mojo::Base::import, recursion: max depth 2, sum of overlapping time 51µs
3
4334µs2175µs
# spent 94µs (13+81) within Mojo::BEGIN@4 which was called: # once (13µs+81µs) by Mojo::Base::import at line 4
use Carp 'croak';
# spent 94µs making 1 call to Mojo::BEGIN@4 # spent 81µs making 1 call to Exporter::import
53224µs2345ms
# spent 345ms (4.49+341) within Mojo::BEGIN@5 which was called: # once (4.49ms+341ms) by Mojo::Base::import at line 5
use Mojo::Client;
# spent 345ms making 1 call to Mojo::BEGIN@5 # spent 3µs making 1 call to Mojo::Base::import, recursion: max depth 2, sum of overlapping time 3µs
63193µs23.06ms
# spent 3.06ms (923µs+2.14) within Mojo::BEGIN@6 which was called: # once (923µs+2.14ms) by Mojo::Base::import at line 6
use Mojo::Home;
# spent 3.06ms making 1 call to Mojo::BEGIN@6 # spent 3µs making 1 call to Mojo::Base::import, recursion: max depth 2, sum of overlapping time 3µs
7322µs212µs
# spent 12µs (11+2) within Mojo::BEGIN@7 which was called: # once (11µs+2µs) by Mojo::Base::import at line 7
use Mojo::Log;
# spent 12µs making 1 call to Mojo::BEGIN@7 # spent 2µs making 1 call to Mojo::Base::import, recursion: max depth 2, sum of overlapping time 2µs
8320µs212µs
# spent 12µs (10+1) within Mojo::BEGIN@8 which was called: # once (10µs+1µs) by Mojo::Base::import at line 8
use Mojo::Transaction::HTTP;
# spent 12µs making 1 call to Mojo::BEGIN@8 # spent 2µs making 1 call to Mojo::Base::import, recursion: max depth 2, sum of overlapping time 2µs
93230µs210µs
# spent 10µs (9+1) within Mojo::BEGIN@9 which was called: # once (9µs+1µs) by Mojo::Base::import at line 9
use Mojo::Transaction::WebSocket;
# spent 10µs making 1 call to Mojo::BEGIN@9 # spent 1µs making 1 call to Mojo::Base::import, recursion: max depth 2, sum of overlapping time 1µs
10
11213µs2119µs
# spent 25µs (12+14) within Mojo::__ANON__[/Users/marcus/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/Mojo.pm:11] which was called: # once (12µs+14µs) by Mojo::Base::__ANON__[(eval 177)[/Users/marcus/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/Mojo/Base.pm:123]:8] at line 4 of (eval 177)[Mojo/Base.pm:123]
has client => sub { Mojo::Client->singleton };
# spent 105µs making 1 call to Mojo::Base::__ANON__[Mojo/Base.pm:38] # spent 14µs making 1 call to Mojo::Client::singleton
12212µs2152µs
# spent 61µs (10+51) within Mojo::__ANON__[/Users/marcus/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/Mojo.pm:12] which was called: # once (10µs+51µs) by Mojo::Base::__ANON__[(eval 178)[/Users/marcus/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/Mojo/Base.pm:123]:8] at line 4 of (eval 178)[Mojo/Base.pm:123]
has home => sub { Mojo::Home->new };
# spent 101µs making 1 call to Mojo::Base::__ANON__[Mojo/Base.pm:38] # spent 51µs making 1 call to Mojo::Base::new
13222µs2104µs
# spent 14µs (8+5) within Mojo::__ANON__[/Users/marcus/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/Mojo.pm:13] which was called: # once (8µs+5µs) by Mojo::Base::__ANON__[(eval 179)[/Users/marcus/perl5/perlbrew/perls/perl-5.10.1/lib/site_perl/5.10.1/Mojo/Base.pm:123]:8] at line 4 of (eval 171)[Mojo/Base.pm:123]
has log => sub { Mojo::Log->new };
# spent 99µs making 1 call to Mojo::Base::__ANON__[Mojo/Base.pm:38] # spent 5µs making 1 call to Mojo::Base::new
14has on_build_tx => sub {
15 sub { Mojo::Transaction::HTTP->new }
1613µs1102µs};
# spent 102µs making 1 call to Mojo::Base::__ANON__[Mojo/Base.pm:38]
17has on_websocket => sub {
18 sub { Mojo::Transaction::WebSocket->new(handshake => pop) }
1913µs198µs};
# spent 98µs making 1 call to Mojo::Base::__ANON__[Mojo/Base.pm:38]
20
21# "Oh, so they have internet on computers now!"
22
# spent 346µs (53+292) within Mojo::new which was called: # once (53µs+292µs) by Mojolicious::new at line 74 of Mojolicious.pm
sub new {
23111µs19µs my $self = shift->SUPER::new(@_);
# spent 9µs making 1 call to Mojo::Base::new
24
25 # Home
2618µs2140µs $self->home->detect(ref $self);
# spent 71µs making 1 call to Mojo::Base::__ANON__[(eval 178)[Mojo/Base.pm:123]:8] # spent 70µs making 1 call to Mojo::Home::detect
27
28 # Client logger
29113µs372µs $self->client->log($self->log);
# spent 37µs making 2 calls to Mojo::Base::__ANON__[(eval 171)[Mojo/Base.pm:123]:8], avg 18µs/call # spent 35µs making 1 call to Mojo::Base::__ANON__[(eval 177)[Mojo/Base.pm:123]:8]
30
31 # Log directory
32126µs371µs $self->log->path($self->home->rel_file('log/mojo.log'))
# spent 52µs making 1 call to Mojo::Home::rel_file # spent 16µs making 1 call to Mojo::CORE:ftewrite # spent 2µs making 1 call to Mojo::Base::__ANON__[(eval 178)[Mojo/Base.pm:123]:8]
33 if -w $self->home->rel_file('log');
34
3513µs return $self;
36}
37
38sub handler { croak 'Method "handler" not implemented in subclass' }
39
4019µs1;
41__END__
 
# spent 16µs within Mojo::CORE:ftewrite which was called: # once (16µs+0s) by Mojo::new at line 32
sub Mojo::CORE:ftewrite; # opcode
Report produced by the NYTProf 4.06 Perl profiler, developed by Tim Bunce and Adam Kaplan.