← 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::Constraint::Simple->new
Statements
Executed 0 statements in 0s
Subroutines
Calls
P
F
Exclusive
Time
Inclusive
Time
Subroutine
0
0
0
0s
0s
__ANON__[Specio::Constraint::::Simple->new:155]
__ANON__[Specio::Constraint::
Simple->new:155]
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
if ( exists $p{_ancestors} && !Specio::TypeChecks::is_ArrayRef( $p{_ancestors} ) ) {
25
Carp::confess(
26
Specio::OO::_bad_value_message(
27
"The value you provided to Specio::Constraint::Simple->new for _ancestors is not a valid ArrayRef.",
28
$p{_ancestors},
29
)
30
);
31
}
32
$self->{_ancestors} = $p{_ancestors} if exists $p{_ancestors};
33
34
$p{_coercions} = Specio::Constraint::Simple->_build_coercions unless exists $p{_coercions};
35
$self->{_coercions} = $p{_coercions} if exists $p{_coercions};
36
37
if ( exists $p{constraint} && !Specio::TypeChecks::is_CodeRef( $p{constraint} ) ) {
38
Carp::confess(
39
Specio::OO::_bad_value_message(
40
"The value you provided to Specio::Constraint::Simple->new for constraint is not a valid CodeRef.",
41
$p{constraint},
42
)
43
);
44
}
45
$self->{_constraint} = $p{constraint} if exists $p{constraint};
46
47
if ( exists $p{_generated_inline_sub} && !Specio::TypeChecks::is_CodeRef( $p{_generated_inline_sub} ) ) {
48
Carp::confess(
49
Specio::OO::_bad_value_message(
50
"The value you provided to Specio::Constraint::Simple->new for _generated_inline_sub is not a valid CodeRef.",
51
$p{_generated_inline_sub},
52
)
53
);
54
}
55
$self->{_generated_inline_sub} = $p{_generated_inline_sub} if exists $p{_generated_inline_sub};
56
57
if ( exists $p{inline_generator} && !Specio::TypeChecks::is_CodeRef( $p{inline_generator} ) ) {
58
Carp::confess(
59
Specio::OO::_bad_value_message(
60
"The value you provided to Specio::Constraint::Simple->new for inline_generator is not a valid CodeRef.",
61
$p{inline_generator},
62
)
63
);
64
}
65
$self->{_inline_generator} = $p{inline_generator} if exists $p{inline_generator};
66
67
if ( exists $p{_message_generator} && !Specio::TypeChecks::is_CodeRef( $p{_message_generator} ) ) {
68
Carp::confess(
69
Specio::OO::_bad_value_message(
70
"The value you provided to Specio::Constraint::Simple->new for _message_generator is not a valid CodeRef.",
71
$p{_message_generator},
72
)
73
);
74
}
75
$self->{_message_generator} = $p{_message_generator} if exists $p{_message_generator};
76
77
if ( exists $p{_optimized_constraint} && !Specio::TypeChecks::is_CodeRef( $p{_optimized_constraint} ) ) {
78
Carp::confess(
79
Specio::OO::_bad_value_message(
80
"The value you provided to Specio::Constraint::Simple->new for _optimized_constraint is not a valid CodeRef.",
81
$p{_optimized_constraint},
82
)
83
);
84
}
85
$self->{_optimized_constraint} = $p{_optimized_constraint} if exists $p{_optimized_constraint};
86
87
if ( exists $p{_signature} && !Specio::TypeChecks::is_Str( $p{_signature} ) ) {
88
Carp::confess(
89
Specio::OO::_bad_value_message(
90
"The value you provided to Specio::Constraint::Simple->new for _signature is not a valid Str.",
91
$p{_signature},
92
)
93
);
94
}
95
$self->{_signature} = $p{_signature} if exists $p{_signature};
96
97
$self->{_subification} = $p{_subification} if exists $p{_subification};
98
99
Specio::OO::_constructor_confess(
100
"Specio::Constraint::Simple->new requires a declared_at argument.")
101
unless exists $p{declared_at};
102
if ( exists $p{declared_at} && !Specio::TypeChecks::isa_class( $p{declared_at}, "Specio::DeclaredAt" ) ) {
103
Carp::confess(
104
Specio::OO::_bad_value_message(
105
"The value you provided to Specio::Constraint::Simple->new for declared_at is not a valid Specio::DeclaredAt.",
106
$p{declared_at},
107
)
108
);
109
}
110
$self->{declared_at} = $p{declared_at} if exists $p{declared_at};
111
112
if ( exists $p{description} && !Specio::TypeChecks::is_Str( $p{description} ) ) {
113
Carp::confess(
114
Specio::OO::_bad_value_message(
115
"The value you provided to Specio::Constraint::Simple->new for description is not a valid Str.",
116
$p{description},
117
)
118
);
119
}
120
$self->{description} = $p{description} if exists $p{description};
121
122
if ( exists $p{inline_environment} && !Specio::TypeChecks::is_HashRef( $p{inline_environment} ) ) {
123
Carp::confess(
124
Specio::OO::_bad_value_message(
125
"The value you provided to Specio::Constraint::Simple->new for inline_environment is not a valid HashRef.",
126
$p{inline_environment},
127
)
128
);
129
}
130
$self->{inline_environment} = $p{inline_environment} if exists $p{inline_environment};
131
132
if ( exists $p{name} && !Specio::TypeChecks::is_Str( $p{name} ) ) {
133
Carp::confess(
134
Specio::OO::_bad_value_message(
135
"The value you provided to Specio::Constraint::Simple->new for name is not a valid Str.",
136
$p{name},
137
)
138
);
139
}
140
$self->{name} = $p{name} if exists $p{name};
141
142
if ( exists $p{parent} && !Specio::TypeChecks::does_role( $p{parent}, "Specio::Constraint::Role::Interface" ) ) {
143
Carp::confess(
144
Specio::OO::_bad_value_message(
145
"The value you provided to Specio::Constraint::Simple->new for parent does not do the Specio::Constraint::Role::Interface role.",
146
$p{parent},
147
)
148
);
149
}
150
$self->{parent} = $p{parent} if exists $p{parent};
151
152
$self->Specio::Constraint::Role::Interface::_Specio_Constraint_Role_Interface_BUILD(\%p);
153
154
return $self;
155
}
156
;
157