| Filename | /home/micha/.plenv/versions/5.38.2/lib/perl5/site_perl/5.38.2/Test2/EventFacet.pm | 
| Statements | Executed 11 statements in 209µs | 
| Calls | P | F | Exclusive Time | Inclusive Time | Subroutine | 
|---|---|---|---|---|---|
| 1 | 1 | 1 | 792µs | 1.26ms | Test2::EventFacet::BEGIN@7 | 
| 1 | 1 | 1 | 9µs | 10µs | Test2::EventFacet::BEGIN@2 | 
| 1 | 1 | 1 | 7µs | 22µs | Test2::EventFacet::BEGIN@3 | 
| 1 | 1 | 1 | 5µs | 23µs | Test2::EventFacet::BEGIN@8 | 
| 0 | 0 | 0 | 0s | 0s | Test2::EventFacet::clone | 
| 0 | 0 | 0 | 0s | 0s | Test2::EventFacet::facet_key | 
| 0 | 0 | 0 | 0s | 0s | Test2::EventFacet::is_list | 
| Line | State ments | Time on line | Calls | Time in subs | Code | 
|---|---|---|---|---|---|
| 1 | package Test2::EventFacet; | ||||
| 2 | 2 | 17µs | 2 | 12µs | # spent 10µs (9+1) within Test2::EventFacet::BEGIN@2 which was called:
#    once (9µs+1µs) by Test2::EventFacet::Trace::BEGIN@7 at line 2 # spent    10µs making 1 call to Test2::EventFacet::BEGIN@2
# spent     2µs making 1 call to strict::import | 
| 3 | 2 | 28µs | 2 | 38µs | # spent 22µs (7+15) within Test2::EventFacet::BEGIN@3 which was called:
#    once (7µs+15µs) by Test2::EventFacet::Trace::BEGIN@7 at line 3 # spent    22µs making 1 call to Test2::EventFacet::BEGIN@3
# spent    16µs making 1 call to warnings::import | 
| 4 | |||||
| 5 | 1 | 200ns | our $VERSION = '1.302198'; | ||
| 6 | |||||
| 7 | 2 | 88µs | 2 | 1.30ms | # spent 1.26ms (792µs+473µs) within Test2::EventFacet::BEGIN@7 which was called:
#    once (792µs+473µs) by Test2::EventFacet::Trace::BEGIN@7 at line 7 # spent  1.26ms making 1 call to Test2::EventFacet::BEGIN@7
# spent    40µs making 1 call to Test2::Util::HashBase::import | 
| 8 | 2 | 73µs | 2 | 41µs | # spent 23µs (5+18) within Test2::EventFacet::BEGIN@8 which was called:
#    once (5µs+18µs) by Test2::EventFacet::Trace::BEGIN@7 at line 8 # spent    23µs making 1 call to Test2::EventFacet::BEGIN@8
# spent    18µs making 1 call to Exporter::import | 
| 9 | |||||
| 10 | 1 | 100ns | my $SUBLEN = length(__PACKAGE__ . '::'); | ||
| 11 | sub facet_key { | ||||
| 12 | my $key = ref($_[0]) || $_[0]; | ||||
| 13 | substr($key, 0, $SUBLEN, ''); | ||||
| 14 | return lc($key); | ||||
| 15 | } | ||||
| 16 | |||||
| 17 | sub is_list { 0 } | ||||
| 18 | |||||
| 19 | sub clone { | ||||
| 20 | my $self = shift; | ||||
| 21 | my $type = ref($self); | ||||
| 22 | return bless {%$self, @_}, $type; | ||||
| 23 | } | ||||
| 24 | |||||
| 25 | 1 | 2µs | 1; | ||
| 26 | |||||
| 27 | __END__ |