← 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
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0s__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
1sub {
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