← 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/usr/local/lib/perl5/site_perl/Specio/Constraint/ObjectIsa.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sSpecio::Constraint::ObjectIsa::::BEGIN@10Specio::Constraint::ObjectIsa::BEGIN@10
0000s0sSpecio::Constraint::ObjectIsa::::BEGIN@11Specio::Constraint::ObjectIsa::BEGIN@11
0000s0sSpecio::Constraint::ObjectIsa::::BEGIN@12Specio::Constraint::ObjectIsa::BEGIN@12
0000s0sSpecio::Constraint::ObjectIsa::::BEGIN@14Specio::Constraint::ObjectIsa::BEGIN@14
0000s0sSpecio::Constraint::ObjectIsa::::BEGIN@3Specio::Constraint::ObjectIsa::BEGIN@3
0000s0sSpecio::Constraint::ObjectIsa::::BEGIN@4Specio::Constraint::ObjectIsa::BEGIN@4
0000s0sSpecio::Constraint::ObjectIsa::::BEGIN@8Specio::Constraint::ObjectIsa::BEGIN@8
0000s0sSpecio::Constraint::ObjectIsa::::BEGIN@9Specio::Constraint::ObjectIsa::BEGIN@9
0000s0sSpecio::Constraint::ObjectIsa::::__ANON__Specio::Constraint::ObjectIsa::__ANON__ (xsub)
0000s0sSpecio::Constraint::ObjectIsa::::__ANON__[:30]Specio::Constraint::ObjectIsa::__ANON__[:30]
0000s0sSpecio::Constraint::ObjectIsa::::_allow_classesSpecio::Constraint::ObjectIsa::_allow_classes
0000s0sSpecio::Constraint::ObjectIsa::::_build_inline_generatorSpecio::Constraint::ObjectIsa::_build_inline_generator
0000s0sSpecio::Constraint::ObjectIsa::::_build_parentSpecio::Constraint::ObjectIsa::_build_parent
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Specio::Constraint::ObjectIsa;
2
3use strict;
4use warnings;
5
6our $VERSION = '0.47';
7
8use Role::Tiny::With;
9use Scalar::Util ();
10use Specio::Helpers qw( perlstring );
11use Specio::Library::Builtins;
12use Specio::OO;
13
14use Specio::Constraint::Role::IsaType;
15with 'Specio::Constraint::Role::IsaType';
16
17{
18 my $Object = t('Object');
19 sub _build_parent {$Object}
20}
21
22{
23 my $_inline_generator = sub {
24 my $self = shift;
25 my $val = shift;
26
27 return sprintf( <<'EOF', $val, $val, perlstring( $self->class ) );
28( Scalar::Util::blessed( %s ) && %s->isa(%s) )
29EOF
30 };
31
32 sub _build_inline_generator {$_inline_generator}
33}
34
35## no critic (Subroutines::ProhibitUnusedPrivateSubroutines)
36sub _allow_classes {0}
37## use critic
38
39__PACKAGE__->_ooify;
40
411;
42
43# ABSTRACT: A class for constraints which require an object that inherits from a specific class
44
45__END__