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