← 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/Library/String.pm
StatementsExecuted 0 statements in 0s
Subroutines
Calls P F Exclusive
Time
Inclusive
Time
Subroutine
0000s0sSpecio::Library::String::::BEGIN@10Specio::Library::String::BEGIN@10
0000s0sSpecio::Library::String::::BEGIN@11Specio::Library::String::BEGIN@11
0000s0sSpecio::Library::String::::BEGIN@3Specio::Library::String::BEGIN@3
0000s0sSpecio::Library::String::::BEGIN@4Specio::Library::String::BEGIN@4
0000s0sSpecio::Library::String::::BEGIN@8Specio::Library::String::BEGIN@8
0000s0sSpecio::Library::String::::__ANON__[:30]Specio::Library::String::__ANON__[:30]
0000s0sSpecio::Library::String::::__ANON__[:45]Specio::Library::String::__ANON__[:45]
0000s0sSpecio::Library::String::::__ANON__[:63]Specio::Library::String::__ANON__[:63]
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments
Time
on line
Calls Time
in subs
Code
1package Specio::Library::String;
2
3use strict;
4use warnings;
5
6our $VERSION = '0.47';
7
8use parent 'Specio::Exporter';
9
10use Specio::Declare;
11use Specio::Library::Builtins;
12
13declare(
14 'NonEmptySimpleStr',
15 parent => t('Str'),
16 inline => sub {
17 return
18 sprintf(
19 <<'EOF', $_[0]->parent->inline_check( $_[1] ), ( $_[1] ) x 3 );
20(
21 %s
22 &&
23 length %s > 0
24 &&
25 length %s <= 255
26 &&
27 %s !~ /[\n\r\x{2028}\x{2029}]/
28)
29EOF
30 },
31);
32
33declare(
34 'NonEmptyStr',
35 parent => t('Str'),
36 inline => sub {
37 return
38 sprintf( <<'EOF', $_[0]->parent->inline_check( $_[1] ), $_[1] );
39(
40 %s
41 &&
42 length %s
43)
44EOF
45 },
46);
47
48declare(
49 'SimpleStr',
50 parent => t('Str'),
51 inline => sub {
52 return
53 sprintf(
54 <<'EOF', $_[0]->parent->inline_check( $_[1] ), ( $_[1] ) x 2 );
55(
56 %s
57 &&
58 length %s <= 255
59 &&
60 %s !~ /[\n\r\x{2028}\x{2029}]/
61)
62EOF
63 },
64);
65
661;
67
68# ABSTRACT: Implements type constraint objects for some common string types
69
70__END__