← Index
NYTProf Performance Profile   « line view »
For /usr/local/libexec/sympa/task_manager-debug.pl
  Run on Tue Jun 1 22:32:51 2021
Reported on Tue Jun 1 22:35:03 2021

Filename/usr/local/lib/perl5/5.32/parent.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sparent::::BEGIN@2parent::BEGIN@2
0000s0sparent::::BEGIN@21parent::BEGIN@21
0000s0sparent::::CORE:substparent::CORE:subst (opcode)
0000s0sparent::::importparent::import
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package parent;
2use strict;
3
4our $VERSION = '0.238';
5
6sub import {
7 my $class = shift;
8
9 my $inheritor = caller(0);
10
11 if ( @_ and $_[0] eq '-norequire' ) {
12 shift @_;
13 } else {
14 for ( my @filename = @_ ) {
15 s{::|'}{/}g;
16 require "$_.pm"; # dies if the file is not found
17 }
18 }
19
20 {
21 no strict 'refs';
22 push @{"$inheritor\::ISA"}, @_; # dies if a loop is detected
23 };
24};
25
261;
27
28__END__