← 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:05 2021
Filename
/root/Specio::DeclaredAt->new
Statements
Executed 0 statements in 0s
Subroutines
Calls
P
F
Exclusive
Time
Inclusive
Time
Subroutine
0
0
0
0s
0s
__ANON__[Specio::::DeclaredAt->new:75]
__ANON__[Specio::
DeclaredAt->new:75]
Call graph for these subroutines as a
Graphviz
dot language file
.
Line
State
ments
Time
on line
Calls
Time
in subs
Code
1
sub {
2
my $class = shift;
3
4
my %p = do {
5
if ( @_ == 1 ) {
6
if ( ref $_[0] eq 'HASH' ) {
7
%{ shift() };
8
}
9
else {
10
Specio::OO::_constructor_confess(
11
Specio::OO::_bad_args_message( $class, @_ ) );
12
}
13
}
14
else {
15
Specio::OO::_constructor_confess(
16
Specio::OO::_bad_args_message( $class, @_ ) )
17
if @_ % 2;
18
@_;
19
}
20
};
21
22
my $self = bless {}, $class;
23
24
Specio::OO::_constructor_confess(
25
"Specio::DeclaredAt->new requires a filename argument.")
26
unless exists $p{filename};
27
if ( exists $p{filename} && !Specio::TypeChecks::is_Str( $p{filename} ) ) {
28
Carp::confess(
29
Specio::OO::_bad_value_message(
30
"The value you provided to Specio::DeclaredAt->new for filename is not a valid Str.",
31
$p{filename},
32
)
33
);
34
}
35
$self->{filename} = $p{filename} if exists $p{filename};
36
37
Specio::OO::_constructor_confess(
38
"Specio::DeclaredAt->new requires a line argument.")
39
unless exists $p{line};
40
if ( exists $p{line} && !Specio::TypeChecks::is_Int( $p{line} ) ) {
41
Carp::confess(
42
Specio::OO::_bad_value_message(
43
"The value you provided to Specio::DeclaredAt->new for line is not a valid Int.",
44
$p{line},
45
)
46
);
47
}
48
$self->{line} = $p{line} if exists $p{line};
49
50
Specio::OO::_constructor_confess(
51
"Specio::DeclaredAt->new requires a package argument.")
52
unless exists $p{package};
53
if ( exists $p{package} && !Specio::TypeChecks::is_Str( $p{package} ) ) {
54
Carp::confess(
55
Specio::OO::_bad_value_message(
56
"The value you provided to Specio::DeclaredAt->new for package is not a valid Str.",
57
$p{package},
58
)
59
);
60
}
61
$self->{package} = $p{package} if exists $p{package};
62
63
if ( exists $p{subroutine} && !Specio::TypeChecks::is_Str( $p{subroutine} ) ) {
64
Carp::confess(
65
Specio::OO::_bad_value_message(
66
"The value you provided to Specio::DeclaredAt->new for subroutine is not a valid Str.",
67
$p{subroutine},
68
)
69
);
70
}
71
$self->{subroutine} = $p{subroutine} if exists $p{subroutine};
72
73
74
return $self;
75
}
76
;
77