| Filename | /usr/share/perl5/DBIx/Class/AccessorGroup.pm |
| Statements | Executed 704 statements in 1.50ms |
| Calls | P | F | Exclusive Time |
Inclusive Time |
Subroutine |
|---|---|---|---|---|---|
| 991 | 1 | 1 | 8.50ms | 26.1ms | DBIx::Class::AccessorGroup::get_component_class |
| 5 | 1 | 1 | 49µs | 89µs | DBIx::Class::AccessorGroup::set_component_class |
| 1 | 1 | 1 | 14µs | 22µs | DBIx::Class::AccessorGroup::BEGIN@3 |
| 1 | 1 | 1 | 12µs | 50µs | DBIx::Class::AccessorGroup::BEGIN@7 |
| 1 | 1 | 1 | 10µs | 12.3ms | DBIx::Class::AccessorGroup::BEGIN@6 |
| 1 | 1 | 1 | 10µs | 16µs | DBIx::Class::AccessorGroup::BEGIN@21 |
| 1 | 1 | 1 | 9µs | 129µs | DBIx::Class::AccessorGroup::BEGIN@8 |
| 1 | 1 | 1 | 9µs | 18µs | DBIx::Class::AccessorGroup::BEGIN@4 |
| Line | State ments |
Time on line |
Calls | Time in subs |
Code |
|---|---|---|---|---|---|
| 1 | package DBIx::Class::AccessorGroup; | ||||
| 2 | |||||
| 3 | 2 | 30µs | # spent 22µs (14+8) within DBIx::Class::AccessorGroup::BEGIN@3 which was called:
# once (14µs+8µs) by base::import at line 3 # spent 22µs making 1 call to DBIx::Class::AccessorGroup::BEGIN@3
# spent 8µs making 1 call to strict::import | ||
| 4 | 2 | 26µs | # spent 18µs (9+9) within DBIx::Class::AccessorGroup::BEGIN@4 which was called:
# once (9µs+9µs) by base::import at line 4 # spent 18µs making 1 call to DBIx::Class::AccessorGroup::BEGIN@4
# spent 9µs making 1 call to warnings::import | ||
| 5 | |||||
| 6 | 2 | 12.3ms | # spent 12.3ms (10µs+12.3) within DBIx::Class::AccessorGroup::BEGIN@6 which was called:
# once (10µs+12.3ms) by base::import at line 6 # spent 12.3ms making 1 call to DBIx::Class::AccessorGroup::BEGIN@6
# spent 12.3ms making 1 call to base::import, recursion: max depth 3, sum of overlapping time 12.3ms | ||
| 7 | 2 | 87µs | # spent 50µs (12+37) within DBIx::Class::AccessorGroup::BEGIN@7 which was called:
# once (12µs+37µs) by base::import at line 7 # spent 50µs making 1 call to DBIx::Class::AccessorGroup::BEGIN@7
# spent 37µs making 1 call to Exporter::import | ||
| 8 | 2 | 250µs | # spent 129µs (9+120) within DBIx::Class::AccessorGroup::BEGIN@8 which was called:
# once (9µs+120µs) by base::import at line 8 # spent 129µs making 1 call to DBIx::Class::AccessorGroup::BEGIN@8
# spent 120µs making 1 call to namespace::clean::import | ||
| 9 | |||||
| 10 | my $successfully_loaded_components; | ||||
| 11 | |||||
| 12 | # spent 26.1ms (8.50+17.6) within DBIx::Class::AccessorGroup::get_component_class which was called 991 times, avg 26µs/call:
# 991 times (8.50ms+17.6ms) by DBIx::Class::ResultSource::result_class or DBIx::Class::ResultSource::resultset_class or DBIx::Class::Storage::DBI::sql_maker_class or DBIx::Class::Storage::cursor_class at line 2 of (eval 171)[Class/Accessor/Grouped.pm:764], avg 26µs/call | ||||
| 13 | 176 | 318µs | 991 | 4.87ms | my $class = $_[0]->get_inherited($_[1]); # spent 4.87ms making 991 calls to Class::Accessor::Grouped::get_inherited, avg 5µs/call |
| 14 | |||||
| 15 | # It's already an object, just go for it. | ||||
| 16 | 176 | 460µs | 991 | 623µs | return $class if blessed $class; # spent 623µs making 991 calls to Scalar::Util::blessed, avg 629ns/call |
| 17 | |||||
| 18 | 176 | 207µs | if (defined $class and ! $successfully_loaded_components->{$class} ) { | ||
| 19 | 177 | 11.9ms | $_[0]->ensure_class_loaded($class); # spent 11.9ms making 177 calls to Class::C3::Componentised::ensure_class_loaded, avg 67µs/call | ||
| 20 | |||||
| 21 | 2 | 22µs | # spent 16µs (10+6) within DBIx::Class::AccessorGroup::BEGIN@21 which was called:
# once (10µs+6µs) by base::import at line 21 # spent 16µs making 1 call to DBIx::Class::AccessorGroup::BEGIN@21
# spent 6µs making 1 call to strict::unimport | ||
| 22 | $successfully_loaded_components->{$class} | ||||
| 23 | = ${"${class}::__LOADED__BY__DBIC__CAG__COMPONENT_CLASS__"} | ||||
| 24 | = do { \(my $anon = 'loaded') }; | ||||
| 25 | 177 | 177µs | weaken($successfully_loaded_components->{$class}); # spent 177µs making 177 calls to Scalar::Util::weaken, avg 998ns/call | ||
| 26 | } | ||||
| 27 | |||||
| 28 | 176 | 513µs | $class; | ||
| 29 | }; | ||||
| 30 | |||||
| 31 | # spent 89µs (49+39) within DBIx::Class::AccessorGroup::set_component_class which was called 5 times, avg 18µs/call:
# 5 times (49µs+39µs) by DBIx::Class::Storage::DBI::datetime_parser_type or DBIx::Class::Storage::DBI::sql_maker_class or DBIx::Class::Storage::cursor_class at line 2 of (eval 171)[Class/Accessor/Grouped.pm:764], avg 18µs/call | ||||
| 32 | 5 | 39µs | shift->set_inherited(@_); # spent 39µs making 5 calls to Class::Accessor::Grouped::set_inherited, avg 8µs/call | ||
| 33 | } | ||||
| 34 | |||||
| 35 | 1; | ||||
| 36 | |||||
| 37 | =head1 NAME | ||||
| 38 | |||||
| 39 | DBIx::Class::AccessorGroup - See Class::Accessor::Grouped | ||||
| 40 | |||||
| 41 | =head1 SYNOPSIS | ||||
| 42 | |||||
| 43 | =head1 DESCRIPTION | ||||
| 44 | |||||
| 45 | This class now exists in its own right on CPAN as Class::Accessor::Grouped | ||||
| 46 | |||||
| 47 | =head1 FURTHER QUESTIONS? | ||||
| 48 | |||||
| 49 | Check the list of L<additional DBIC resources|DBIx::Class/GETTING HELP/SUPPORT>. | ||||
| 50 | |||||
| 51 | =head1 COPYRIGHT AND LICENSE | ||||
| 52 | |||||
| 53 | This module is free software L<copyright|DBIx::Class/COPYRIGHT AND LICENSE> | ||||
| 54 | by the L<DBIx::Class (DBIC) authors|DBIx::Class/AUTHORS>. You can | ||||
| 55 | redistribute it and/or modify it under the same terms as the | ||||
| 56 | L<DBIx::Class library|DBIx::Class/COPYRIGHT AND LICENSE>. | ||||
| 57 | |||||
| 58 | 1 | 83µs | =cut # spent 83µs making 1 call to B::Hooks::EndOfScope::XS::__ANON__ |