Profile of Tapper/Schema/TestrunDB.pm

← 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:07 2012

Filename | /2home/ss5/perl5/perlbrew/perls/perl-5.12.3/lib/site_perl/5.12.3/Tapper/Schema/TestrunDB.pm
Statements | Executed 33 statements in 346µs

Subroutines
Calls | P | F | Exclusive Time | Inclusive Time | Subroutine
--- | --- | --- | --- | --- | ---
1 | 1 | 1 | 47µs | 108µs | Tapper::Schema::TestrunDB::::BEGIN@6Tapper::Schema::TestrunDB::BEGIN@6
1 | 1 | 1 | 9µs | 6.85ms | Tapper::Schema::TestrunDB::::BEGIN@24Tapper::Schema::TestrunDB::BEGIN@24
1 | 1 | 1 | 8µs | 46µs | Tapper::Schema::TestrunDB::::BEGIN@22Tapper::Schema::TestrunDB::BEGIN@22
1 | 1 | 1 | 8µs | 61µs | Tapper::Schema::TestrunDB::::BEGIN@6.17Tapper::Schema::TestrunDB::BEGIN@6.17
1 | 1 | 1 | 7µs | 7µs | Tapper::Schema::TestrunDB::::BEGIN@2Tapper::Schema::TestrunDB::BEGIN@2
1 | 1 | 1 | 7µs | 13µs | Tapper::Schema::TestrunDB::::BEGIN@20Tapper::Schema::TestrunDB::BEGIN@20
1 | 1 | 1 | 7µs | 14µs | Tapper::Schema::TestrunDB::::BEGIN@9Tapper::Schema::TestrunDB::BEGIN@9
1 | 1 | 1 | 6µs | 8µs | Tapper::Schema::TestrunDB::::BEGIN@8Tapper::Schema::TestrunDB::BEGIN@8
1 | 1 | 1 | 4µs | 4µs | Tapper::Schema::TestrunDB::::BEGIN@21Tapper::Schema::TestrunDB::BEGIN@21
0 | 0 | 0 | 0s | 0s | Tapper::Schema::TestrunDB::::_yaml_okTapper::Schema::TestrunDB::_yaml_ok
0 | 0 | 0 | 0s | 0s | Tapper::Schema::TestrunDB::::backupTapper::Schema::TestrunDB::backup

Call graph for these subroutines as a Graphviz dot language file.

Line | State ments | Time on line | Calls | Time in subs | Code
--- | --- | --- | --- | --- | ---
1 |  |  |  |  | package Tapper::Schema::TestrunDB;
2 |  |  |  |  | # spent 7µs within Tapper::Schema::TestrunDB::BEGIN@2 which was called: # once (7µs+0s) by Tapper::Schema::TestTools::BEGIN@20 at line 4 BEGIN {
3 | 1 | 6µs |  |  | $Tapper::Schema::TestrunDB::AUTHORITY = 'cpan:AMD';
4 | 1 | 13µs | 1 | 7µs | } # spent 7µs making 1 call to Tapper::Schema::TestrunDB::BEGIN@2
5 |  |  |  |  |
6 | 6 | 66µs | 3 | 222µs | # spent 61µs (8+53) within Tapper::Schema::TestrunDB::BEGIN@6.17 which was called: # once (8µs+53µs) by Tapper::Schema::TestrunDB::BEGIN@6 at line 6 # spent 108µs (47+61) within Tapper::Schema::TestrunDB::BEGIN@6 which was called: # once (47µs+61µs) by Tapper::Schema::TestTools::BEGIN@20 at line 6 use 5.010; # spent 108µs making 1 call to Tapper::Schema::TestrunDB::BEGIN@6 # spent 61µs making 1 call to Tapper::Schema::TestrunDB::BEGIN@6.17 # spent 53µs making 1 call to feature::import
7 |  |  |  |  |
8 | 3 | 16µs | 2 | 10µs | # spent 8µs (6+2) within Tapper::Schema::TestrunDB::BEGIN@8 which was called: # once (6µs+2µs) by Tapper::Schema::TestTools::BEGIN@20 at line 8 use strict; # spent 8µs making 1 call to Tapper::Schema::TestrunDB::BEGIN@8 # spent 2µs making 1 call to strict::import
9 | 3 | 29µs | 2 | 22µs | # spent 14µs (7+8) within Tapper::Schema::TestrunDB::BEGIN@9 which was called: # once (7µs+8µs) by Tapper::Schema::TestTools::BEGIN@20 at line 9 use warnings; # spent 14µs making 1 call to Tapper::Schema::TestrunDB::BEGIN@9 # spent 8µs making 1 call to warnings::import
10 |  |  |  |  |
11 |  |  |  |  | # Only increment this version here on schema changes.
12 |  |  |  |  | # For everything else increment Tapper/Schema.pm.
13 | 1 | 600ns |  |  | our $VERSION = '3.000005';
14 |  |  |  |  |
15 |  |  |  |  | # avoid these warnings
16 |  |  |  |  | # Subroutine initialize redefined at /2home/ss5/perl510/lib/site_perl/5.10.0/Class/C3.pm line 70.
17 |  |  |  |  | # Subroutine uninitialize redefined at /2home/ss5/perl510/lib/site_perl/5.10.0/Class/C3.pm line 88.
18 |  |  |  |  | # Subroutine reinitialize redefined at /2home/ss5/perl510/lib/site_perl/5.10.0/Class/C3.pm line 101.
19 |  |  |  |  | # by forcing correct load order.
20 | 3 | 16µs | 2 | 19µs | # spent 13µs (7+6) within Tapper::Schema::TestrunDB::BEGIN@20 which was called: # once (7µs+6µs) by Tapper::Schema::TestTools::BEGIN@20 at line 20 use Class::C3; # spent 13µs making 1 call to Tapper::Schema::TestrunDB::BEGIN@20 # spent 6µs making 1 call to Class::C3::import
21 | 3 | 16µs | 1 | 4µs | # spent 4µs within Tapper::Schema::TestrunDB::BEGIN@21 which was called: # once (4µs+0s) by Tapper::Schema::TestTools::BEGIN@20 at line 21 use MRO::Compat; # spent 4µs making 1 call to Tapper::Schema::TestrunDB::BEGIN@21
22 | 3 | 20µs | 2 | 84µs | # spent 46µs (8+38) within Tapper::Schema::TestrunDB::BEGIN@22 which was called: # once (8µs+38µs) by Tapper::Schema::TestTools::BEGIN@20 at line 22 use YAML::Syck; # spent 46µs making 1 call to Tapper::Schema::TestrunDB::BEGIN@22 # spent 38µs making 1 call to Exporter::import
23 |  |  |  |  |
24 | 3 | 127µs | 2 | 13.7ms | # spent 6.85ms (9µs+6.84) within Tapper::Schema::TestrunDB::BEGIN@24 which was called: # once (9µs+6.84ms) by Tapper::Schema::TestTools::BEGIN@20 at line 24 use parent 'DBIx::Class::Schema'; # spent 6.85ms making 1 call to Tapper::Schema::TestrunDB::BEGIN@24 # spent 6.84ms making 1 call to parent::import
25 |  |  |  |  |
26 | 1 | 300ns |  |  | our $NULL = 'NULL';
27 | 1 | 200ns |  |  | our $DELIM = ' | ';
28 |  |  |  |  |
29 | 1 | 9µs | 1 | 6.98ms | __PACKAGE__->load_components(qw/+DBIx::Class::Schema::Versioned/); # spent 6.98ms making 1 call to Class::C3::Componentised::load_components
30 | 1 | 5µs | 1 | 17µs | __PACKAGE__->upgrade_directory('./upgrades/'); # spent 17µs making 1 call to DBIx::Class::Schema::Versioned::upgrade_directory
31 | 1 | 4µs | 1 | 10µs | __PACKAGE__->backup_directory('./upgrades/'); # spent 10µs making 1 call to DBIx::Class::Schema::Versioned::backup_directory
32 |  |  |  |  |
33 | 1 | 5µs | 1 | 163ms | __PACKAGE__->load_namespaces; # spent 163ms making 1 call to DBIx::Class::Schema::load_namespaces
34 |  |  |  |  |
35 |  |  |  |  |
36 |  |  |  |  | sub backup
37 |  |  |  |  | {
38 |  |  |  |  | #say STDERR "(TODO: Implement backup method.)";
39 |  |  |  |  | 1;
40 |  |  |  |  | }
41 |  |  |  |  |
42 |  |  |  |  |
43 |  |  |  |  | sub _yaml_ok {
44 |  |  |  |  | my ($condition) = @_;
45 |  |  |  |  |
46 |  |  |  |  | my @res;
47 |  |  |  |  | eval {
48 |  |  |  |  | @res = Load($condition);
49 |  |  |  |  | };
50 |  |  |  |  | return $@;
51 |  |  |  |  | }
52 |  |  |  |  |
53 | 1 | 13µs |  |  | 1;
54 |  |  |  |  |
55 |  |  |  |  |
56 |  |  |  |  | __END__