← Index
NYTProf Performance Profile   « block view • line view • sub view »
For xt/tapper-mcp-scheduler-with-db-longrun.t
  Run on Tue May 22 17:18:39 2012
Reported on Tue May 22 17:23:06 2012

Filename/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/Tapper/Schema/TestTools.pm
StatementsExecuted 57 statements in 1.42ms
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
111370µs76.0msTapper::Schema::TestTools::::BEGIN@21Tapper::Schema::TestTools::BEGIN@21
111341µs178msTapper::Schema::TestTools::::BEGIN@20Tapper::Schema::TestTools::BEGIN@20
211330µs330µsTapper::Schema::TestTools::::CORE:unlinkTapper::Schema::TestTools::CORE:unlink (opcode)
221217µs8.52sTapper::Schema::TestTools::::setup_dbTapper::Schema::TestTools::setup_db
11134µs3.53sTapper::Schema::TestTools::::setup_reportsdbTapper::Schema::TestTools::setup_reportsdb
21125µs25µsTapper::Schema::TestTools::::CORE:matchTapper::Schema::TestTools::CORE:match (opcode)
11119µs5.00sTapper::Schema::TestTools::::setup_testrundbTapper::Schema::TestTools::setup_testrundb
11118µs18µsTapper::Schema::TestTools::::importTapper::Schema::TestTools::import
11112µs12µsTapper::Schema::TestTools::::BEGIN@2Tapper::Schema::TestTools::BEGIN@2
11111µs15µsTapper::Schema::TestTools::::BEGIN@11Tapper::Schema::TestTools::BEGIN@11
11111µs26µsTapper::Schema::TestTools::::BEGIN@15Tapper::Schema::TestTools::BEGIN@15
11110µs10µsTapper::Schema::TestTools::::BEGIN@23Tapper::Schema::TestTools::BEGIN@23
1119µs27µsTapper::Schema::TestTools::::BEGIN@60Tapper::Schema::TestTools::BEGIN@60
1118µs23µsTapper::Schema::TestTools::::BEGIN@12Tapper::Schema::TestTools::BEGIN@12
1117µs7µsTapper::Schema::TestTools::::BEGIN@16Tapper::Schema::TestTools::BEGIN@16
1117µs7µsTapper::Schema::TestTools::::__ANON__[:61]Tapper::Schema::TestTools::__ANON__[:61]
1113µs3µsTapper::Schema::TestTools::::BEGIN@14Tapper::Schema::TestTools::BEGIN@14
0000s0sTapper::Schema::TestTools::::__ANON__[:62]Tapper::Schema::TestTools::__ANON__[:62]
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Tapper::Schema::TestTools;
2
# spent 12µs within Tapper::Schema::TestTools::BEGIN@2 which was called: # once (12µs+0s) by main::BEGIN@18 at line 4
BEGIN {
314µs $Tapper::Schema::TestTools::AUTHORITY = 'cpan:AMD';
4122µs112µs}
# spent 12µs making 1 call to Tapper::Schema::TestTools::BEGIN@2
5{
622µs $Tapper::Schema::TestTools::VERSION = '0.001';
7}
8
9# inspired by Test::Fixture::DBIC::Schema
10
11318µs219µs
# spent 15µs (11+4) within Tapper::Schema::TestTools::BEGIN@11 which was called: # once (11µs+4µs) by main::BEGIN@18 at line 11
use strict;
# spent 15µs making 1 call to Tapper::Schema::TestTools::BEGIN@11 # spent 4µs making 1 call to strict::import
12321µs238µs
# spent 23µs (8+15) within Tapper::Schema::TestTools::BEGIN@12 which was called: # once (8µs+15µs) by main::BEGIN@18 at line 12
use warnings;
# spent 23µs making 1 call to Tapper::Schema::TestTools::BEGIN@12 # spent 15µs making 1 call to warnings::import
13
14
# spent 3µs within Tapper::Schema::TestTools::BEGIN@14 which was called: # once (3µs+0s) by main::BEGIN@18 at line 18
BEGIN {
15324µs241µs
# spent 26µs (11+15) within Tapper::Schema::TestTools::BEGIN@15 which was called: # once (11µs+15µs) by main::BEGIN@18 at line 15
use Class::C3;
# spent 26µs making 1 call to Tapper::Schema::TestTools::BEGIN@15 # spent 15µs making 1 call to Class::C3::import
16324µs17µs
# spent 7µs within Tapper::Schema::TestTools::BEGIN@16 which was called: # once (7µs+0s) by main::BEGIN@18 at line 16
use MRO::Compat;
# spent 7µs making 1 call to Tapper::Schema::TestTools::BEGIN@16
1713µs $DBD::SQLite::sqlite_version; # fix "used only once" warning
18112µs13µs}
# spent 3µs making 1 call to Tapper::Schema::TestTools::BEGIN@14
19
203122µs1178ms
# spent 178ms (341µs+178) within Tapper::Schema::TestTools::BEGIN@20 which was called: # once (341µs+178ms) by main::BEGIN@18 at line 20
use Tapper::Schema::TestrunDB;
# spent 178ms making 1 call to Tapper::Schema::TestTools::BEGIN@20
213188µs176.0ms
# spent 76.0ms (370µs+75.6) within Tapper::Schema::TestTools::BEGIN@21 which was called: # once (370µs+75.6ms) by main::BEGIN@18 at line 21
use Tapper::Schema::ReportsDB;
# spent 76.0ms making 1 call to Tapper::Schema::TestTools::BEGIN@21
22
233230µs110µs
# spent 10µs within Tapper::Schema::TestTools::BEGIN@23 which was called: # once (10µs+0s) by main::BEGIN@18 at line 23
use Tapper::Config;
# spent 10µs making 1 call to Tapper::Schema::TestTools::BEGIN@23
24
251100nsmy $testrundb_schema;
261200nsmy $reportsdb_schema;
27
28
29sub setup_db
30
# spent 8.52s (217µs+8.52) within Tapper::Schema::TestTools::setup_db which was called 2 times, avg 4.26s/call: # once (96µs+5.00s) by Tapper::Schema::TestTools::setup_testrundb at line 49 # once (120µs+3.53s) by Tapper::Schema::TestTools::setup_reportsdb at line 54
{
31 # explicitely prefix into {test} subhash of the config file,
32 # to avoid painful mistakes with deploy
33
3418558µs my ($db, $cfgbase) = @_;
35
36 my $cfg = $cfgbase->{$db};
37 my $dsn = $cfg->{dsn};
38225µs my ($tmpfname) = $dsn =~ m,dbi:SQLite:dbname=([\w./]+),i;
# spent 25µs making 2 calls to Tapper::Schema::TestTools::CORE:match, avg 12µs/call
392330µs unlink $tmpfname;
# spent 330µs making 2 calls to Tapper::Schema::TestTools::CORE:unlink, avg 165µs/call
40232.6ms my $schema = $db eq "ReportsDB" ? Tapper::Schema::ReportsDB->connect($dsn, $cfg->{username}, $cfg->{password}, { ignore_version => 1 })
# spent 32.6ms making 2 calls to DBIx::Class::Schema::connect, avg 16.3ms/call
41 : Tapper::Schema::TestrunDB->connect($dsn, $cfg->{username}, $cfg->{password}, { ignore_version => 1 });
4228.48s $schema->deploy;
# spent 8.48s making 2 calls to DBIx::Class::Schema::Versioned::deploy, avg 4.24s/call
43413.8ms $schema->upgrade if $schema->schema_version > $schema->get_db_version;
# spent 13.8ms making 2 calls to DBIx::Class::Schema::Versioned::get_db_version, avg 6.88ms/call # spent 57µs making 2 calls to DBIx::Class::Schema::schema_version, avg 28µs/call
44 return $schema;
45}
46
47
48
# spent 5.00s (19µs+5.00) within Tapper::Schema::TestTools::setup_testrundb which was called: # once (19µs+5.00s) by main::BEGIN@18 at line 65
sub setup_testrundb {
49114µs25.00s $testrundb_schema = setup_db("TestrunDB", Tapper::Config->subconfig->{test}{database});
# spent 5.00s making 1 call to Tapper::Schema::TestTools::setup_db # spent 2µs making 1 call to Tapper::Config::subconfig
50}
51
52
53
# spent 3.53s (34µs+3.53) within Tapper::Schema::TestTools::setup_reportsdb which was called: # once (34µs+3.53s) by main::BEGIN@18 at line 66
sub setup_reportsdb {
54125µs23.53s $reportsdb_schema = setup_db("ReportsDB", Tapper::Config->subconfig->{test}{database});
# spent 3.53s making 1 call to Tapper::Schema::TestTools::setup_db # spent 4µs making 1 call to Tapper::Config::subconfig
55}
56
57
58
# spent 18µs within Tapper::Schema::TestTools::import which was called: # once (18µs+0s) by main::BEGIN@18 at line 18 of xt/tapper-mcp-scheduler-with-db-longrun.t
sub import {
59320µs my $pkg = caller(0);
60398µs244µs
# spent 27µs (9+18) within Tapper::Schema::TestTools::BEGIN@60 which was called: # once (9µs+18µs) by main::BEGIN@18 at line 60
no strict 'refs'; ## no critic.
# spent 27µs making 1 call to Tapper::Schema::TestTools::BEGIN@60 # spent 18µs making 1 call to strict::unimport
61115µs
# spent 7µs within Tapper::Schema::TestTools::__ANON__[/2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/Tapper/Schema/TestTools.pm:61] which was called: # once (7µs+0s) by main::RUNTIME at line 37 of xt/tapper-mcp-scheduler-with-db-longrun.t
*{"$pkg\::testrundb_schema"} = sub () { $testrundb_schema };
62 *{"$pkg\::reportsdb_schema"} = sub () { $reportsdb_schema };
63}
64
6512µs15.00ssetup_testrundb;
# spent 5.00s making 1 call to Tapper::Schema::TestTools::setup_testrundb
6616µs13.53ssetup_reportsdb;
# spent 3.53s making 1 call to Tapper::Schema::TestTools::setup_reportsdb
67
68112µs1;
69
70__END__
 
# spent 25µs within Tapper::Schema::TestTools::CORE:match which was called 2 times, avg 12µs/call: # 2 times (25µs+0s) by Tapper::Schema::TestTools::setup_db at line 38, avg 12µs/call
sub Tapper::Schema::TestTools::CORE:match; # opcode
# spent 330µs within Tapper::Schema::TestTools::CORE:unlink which was called 2 times, avg 165µs/call: # 2 times (330µs+0s) by Tapper::Schema::TestTools::setup_db at line 39, avg 165µs/call
sub Tapper::Schema::TestTools::CORE:unlink; # opcode