Branch Coverage

blib/lib/MarpaX/Languages/M4/Impl/Default.pm
Criterion Covered Total %
branch 960 2242 42.8


line true false branch
198 140 0 @_ ? :
140 0 @_ ? :
215 0 0 if (&Undef()->check($file))
228 0 0 if (&ArrayRef()->check($nextOpts{$_})) { }
269 0 0 @_ ? :
0 0 if @_ < 1
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::Str($reloadState) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
302 140 0 @_ ? :
0 140 if @_ < 1
140 0 $#_ >= 0 ? :
140 0 Type::Tiny::XS::Bool($cmdtounix) ? :
140 0 if ($#_ >= 0)
0 140 $#_ >= 1 ? :
307 0 0 @_ ? :
323 2 0 @_ ? :
0 2 if @_ < 1
2 0 $#_ >= 0 ? :
2 0 Type::Tiny::XS::Bool($changeword_is_character_per_character) ? :
2 0 if ($#_ >= 0)
0 2 $#_ >= 1 ? :
329 136 0 @_ ? :
344 140 0 @_ ? :
0 140 if @_ < 1
140 0 $#_ >= 0 ? :
140 0 Type::Tiny::XS::Bool($inctounix) ? :
140 0 if ($#_ >= 0)
0 140 $#_ >= 1 ? :
349 0 0 @_ ? :
384 0 0 @_ ? :
0 0 if @_ < 1
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::AUTO::TC3($tokens_priority) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
392 0 0 unless (exists $tokens_priority{$lexeme})
405 139 0 @_ ? :
425 0 0 @_ ? :
0 0 if @_ < 1
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::Str($integer_type) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
430 11 0 @_ ? :
450 7 0 @_ ? :
0 7 if @_ < 1
7 0 $#_ >= 0 ? :
7 0 Type::Tiny::XS::Str($regexp_type) ? :
7 0 if ($#_ >= 0)
0 7 $#_ >= 1 ? :
455 13 0 @_ ? :
477 0 0 @_ ? :
0 0 if @_ < 1
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::Str($integer_bits) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
482 18 0 @_ ? :
503 0 0 @_ ? :
0 0 if @_ < 1
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::Str($m4wrap_order) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
508 8 0 @_ ? :
529 0 0 @_ ? :
0 0 if @_ < 1
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::Str($divert_type) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
534 24 0 @_ ? :
601 0 0 @_ ? :
0 0 if @_ < 1
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::AUTO::TC3($builtin_need_param) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
604 0 0 if ($r->regexp_exec($self, $_) == 0) { }
608 0 0 if ($r->regexp_lpos_count > 1) { }
628 138 0 @_ ? :
691 0 0 @_ ? :
0 0 if @_ < 1
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::AUTO::TC3($param_can_be_macro) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
695 0 0 if ($r->regexp_exec($self, $_) == 0) { }
701 0 0 if ($r->regexp_lpos_count > 1) { }
714 0 0 if ($nextPos < length $_ and substr($_, $nextPos++, 1) eq '=' and $nextPos < length $_)
720 0 0 if not &Undef()->check($_)
723 0 0 if (&PositiveOrZeroInt()->check($_) or &Str()->check($_) and $_ eq '*') { }
763 0 0 @_ ? :
0 0 if @_ != 0
774 0 0 @_ ? :
0 0 if @_ < 1
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::Bool($interactive) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
775 0 0 if ($interactive)
794 0 0 @_ ? :
0 0 if @_ < 1
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::Bool($version) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
795 0 0 if ($version)
829 1 0 @_ ? :
0 1 if @_ < 1
1 0 $#_ >= 0 ? :
1 0 Type::Tiny::XS::Bool($prefix_builtins) ? :
1 0 if ($#_ >= 0)
0 1 $#_ >= 1 ? :
833 137 0 @_ ? :
855 1 0 @_ ? :
0 1 if @_ < 1
1 0 $#_ >= 0 ? :
1 0 Type::Tiny::XS::PositiveInt($fatal_warnings) ? :
1 0 if ($#_ >= 0)
0 1 $#_ >= 1 ? :
860 13 0 @_ ? :
879 0 0 @_ ? :
0 0 if @_ < 1
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::Bool($silent) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
884 0 0 @_ ? :
919 0 0 @_ ? :
0 0 if @_ < 1
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::AUTO::TC3($arrayRef) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
926 138 0 @_ ? :
944 0 0 @_ ? :
0 0 if @_ < 1
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::AUTO::TC3($arrayRef) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
948 0 0 if ($r->regexp_exec($self, $_) == 0) { }
954 0 0 if ($r->regexp_lpos_count > 1) { }
967 0 0 if (length $value > 0)
968 0 0 if (substr($value, 0, 1) ne '=') { }
1003 0 0 @_ ? :
0 0 if @_ < 1
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::AUTO::TC3($arrayRef) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
1007 0 0 if ($r->regexp_exec($self, $_) == 0) { }
1012 0 0 if ($r->regexp_lpos_count > 1) { }
1057 0 0 @_ ? :
0 0 if @_ < 1
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::AUTO::TC3($prepend_include) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
1061 20 0 @_ ? :
1088 140 0 @_ ? :
0 140 if @_ < 1
140 0 $#_ >= 0 ? :
140 0 Type::Tiny::XS::AUTO::TC3($include) ? :
140 0 if ($#_ >= 0)
0 140 $#_ >= 1 ? :
1092 0 0 @_ ? :
1114 0 0 @_ ? :
0 0 if @_ < 1
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::Bool($synclines) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
1118 0 0 @_ ? :
1140 0 0 @_ ? :
0 0 if @_ < 1
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::Bool($gnu) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
1144 137 0 @_ ? :
1159 1 0 @_ ? :
0 1 if @_ < 1
1 0 $#_ >= 0 ? :
1 0 Type::Tiny::XS::Bool($traditional) ? :
1 0 if ($#_ >= 0)
0 1 $#_ >= 1 ? :
1196 0 0 @_ ? :
0 0 if @_ < 1
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::Str($flags) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
1200 0 0 if (length $flags <= 0) { }
1210 0 0 if (not $self->_debug_exists($_) and $_ ne 'V')
1217 0 0 unless ($ok)
1220 0 0 if (index($flags, 'V') >= 0) { }
1235 138 0 @_ ? :
1263 0 0 @_ ? :
0 0 if @_ < 1
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::PositiveOrZeroInt($nesting_limit) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
1267 0 0 @_ ? :
1290 0 0 @_ ? :
0 0 if @_ < 1
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::Str($debugfile) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
1294 2 0 @_ ? :
1324 0 0 @_ ? :
0 0 if @_ < 1
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::Str($quote_start) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
1325 0 0 if (length $quote_start > 0)
1330 23 0 @_ ? :
0 23 if @_ < 1
23 0 $#_ >= 0 ? :
23 0 Type::Tiny::XS::Str($quote_start) ? :
23 0 if ($#_ >= 0)
0 23 $#_ >= 1 ? :
1334 139 0 @_ ? :
1335 139 0 @_ ? :
1365 0 0 @_ ? :
0 0 if @_ < 1
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::Str($quote_end) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
1366 0 0 if (length $quote_end > 0)
1371 23 0 @_ ? :
0 23 if @_ < 1
23 0 $#_ >= 0 ? :
23 0 Type::Tiny::XS::Str($quote_end) ? :
23 0 if ($#_ >= 0)
0 23 $#_ >= 1 ? :
1375 139 0 @_ ? :
1376 139 0 @_ ? :
1406 0 0 @_ ? :
0 0 if @_ < 1
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::Str($comment_start) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
1407 0 0 if (length $comment_start > 0)
1412 16 0 @_ ? :
0 16 if @_ < 1
16 0 $#_ >= 0 ? :
16 0 Type::Tiny::XS::Str($comment_start) ? :
16 0 if ($#_ >= 0)
0 16 $#_ >= 1 ? :
1416 139 0 @_ ? :
1450 0 0 @_ ? :
0 0 if @_ < 1
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::Str($comment_end) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
1451 0 0 if (length $comment_end > 0)
1456 16 0 @_ ? :
0 16 if @_ < 1
16 0 $#_ >= 0 ? :
16 0 Type::Tiny::XS::Str($comment_end) ? :
16 0 if ($#_ >= 0)
0 16 $#_ >= 1 ? :
1460 139 0 @_ ? :
1461 139 0 @_ ? :
1500 11 0 @_ ? :
0 11 if @_ < 1
11 0 $#_ >= 0 ? :
11 0 Type::Tiny::XS::Str($regexpString) ? :
11 0 if ($#_ >= 0)
0 11 $#_ >= 1 ? :
1501 0 11 if (length $regexpString <= 0)
1511 0 11 $regexpString eq $DEFAULT_WORD_REGEXP ? :
1516 11 0 if ($r->regexp_compile($self, $regexp_type, $regexpString))
1521 0 11 $regexpString eq $DEFAULT_WORD_REGEXP ? :
1529 139 0 @_ ? :
0 139 $#_ >= 0 ? :
1533 139 0 @_ ? :
0 139 $#_ >= 0 ? :
1535 139 0 $self->_word_regexp eq $DEFAULT_WORD_REGEXP ? :
1566 1 0 @_ ? :
1567 1 0 $self->_regexp_type eq 'GNU' ? :
1576 0 0 @_ ? :
0 0 if @_ < 1
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::Str($regexpString) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
1581 0 0 if ($r->regexp_compile($self, $self->_regexp_type, $regexpString))
1608 1 0 @_ ? :
0 1 if @_ < 1
1 0 $#_ >= 0 ? :
1 0 Type::Tiny::XS::Bool($bool) ? :
1 0 if ($#_ >= 0)
0 1 $#_ >= 1 ? :
1613 94 0 @_ ? :
1621 15088 0 @_ ? :
0 15088 if @_ != 5
15088 0 $#_ >= 0 ? :
15088 0 Type::Tiny::XS::Str($input) ? :
15088 0 if ($#_ >= 0)
15088 0 $#_ >= 1 ? :
15088 0 Type::Tiny::XS::PositiveOrZeroInt($pos) ? :
15088 0 if ($#_ >= 1)
15088 0 $#_ >= 2 ? :
15088 0 Type::Tiny::XS::PositiveOrZeroInt($maxPos) ? :
15088 0 if ($#_ >= 2)
15088 0 $#_ >= 3 ? :
15088 0 !!ref($lexemeValueRef) ? :
15088 0 if ($#_ >= 3)
15088 0 $#_ >= 4 ? :
15088 0 !!ref($lexemeLengthRef) ? :
15088 0 if ($#_ >= 4)
1624 3091 11997 if ($r->regexp_exec($self, $input, $pos) == $pos)
1632 12 3079 if ($#{$lposp;} > 0) { }
1635 0 12 if ($rpos <= $lpos) { }
1665 19 3058 if ($self->_changeword_is_character_per_character and not $self->_regexp_isDefault and $lexemeLength > 1)
1678 2 59 if ($r->regexp_exec($self, $substring, 0) != 0)
1691 23996 0 @_ ? :
0 23996 if @_ != 5
23996 0 $#_ >= 0 ? :
23996 0 Type::Tiny::XS::Str($input) ? :
23996 0 if ($#_ >= 0)
23996 0 $#_ >= 1 ? :
23996 0 Type::Tiny::XS::PositiveOrZeroInt($pos) ? :
23996 0 if ($#_ >= 1)
23996 0 $#_ >= 2 ? :
23996 0 Type::Tiny::XS::PositiveOrZeroInt($maxPos) ? :
23996 0 if ($#_ >= 2)
23996 0 $#_ >= 3 ? :
23996 0 !!ref($lexemeValueRef) ? :
23996 0 if ($#_ >= 3)
23996 0 $#_ >= 4 ? :
23996 0 !!ref($lexemeLengthRef) ? :
23996 0 if ($#_ >= 4)
1700 23916 80 if ($commentStartLength > 0 and $commentEndLength > 0)
1702 81 23835 if (substr($input, $pos, $commentStartLength) eq $comStart)
1705 79 2996 if (substr($input, $lastPos, $commentEndLength) eq $comEnd) { }
1719 2 0 if ($self->_eof)
1727 21736 0 @_ ? :
0 21736 if @_ != 5
21736 0 $#_ >= 0 ? :
21736 0 Type::Tiny::XS::Str($input) ? :
21736 0 if ($#_ >= 0)
21736 0 $#_ >= 1 ? :
21736 0 Type::Tiny::XS::PositiveOrZeroInt($pos) ? :
21736 0 if ($#_ >= 1)
21736 0 $#_ >= 2 ? :
21736 0 Type::Tiny::XS::PositiveOrZeroInt($maxPos) ? :
21736 0 if ($#_ >= 2)
21736 0 $#_ >= 3 ? :
21736 0 !!ref($lexemeValueRef) ? :
21736 0 if ($#_ >= 3)
21736 0 $#_ >= 4 ? :
21736 0 !!ref($lexemeLengthRef) ? :
21736 0 if ($#_ >= 4)
1737 21716 20 if ($quoteStartLength > 0 and $quoteEndLength > 0)
1739 4394 17322 if (substr($input, $pos, $quoteStartLength) eq $quoteStart)
1743 7218 41086 if (substr($input, $lastPos, $quoteEndLength) eq $quoteEnd) { }
2826 38260 elsif (substr($input, $lastPos, $quoteStartLength) eq $quoteStart) { }
1747 4392 2826 if ($nested == 0) { }
1771 2 0 if ($self->_eof)
1779 7638 0 @_ ? :
0 7638 if @_ != 5
7638 0 $#_ >= 0 ? :
7638 0 Type::Tiny::XS::Str($input) ? :
7638 0 if ($#_ >= 0)
7638 0 $#_ >= 1 ? :
7638 0 Type::Tiny::XS::PositiveOrZeroInt($pos) ? :
7638 0 if ($#_ >= 1)
7638 0 $#_ >= 2 ? :
7638 0 Type::Tiny::XS::PositiveOrZeroInt($maxPos) ? :
7638 0 if ($#_ >= 2)
7638 0 $#_ >= 3 ? :
7638 0 !!ref($lexemeValueRef) ? :
7638 0 if ($#_ >= 3)
7638 0 $#_ >= 4 ? :
7638 0 !!ref($lexemeLengthRef) ? :
7638 0 if ($#_ >= 4)
1781 7638 0 if ($input =~ /\G./su)
1789 2533 0 @_ ? :
0 2533 if @_ != 1
2533 0 $#_ >= 0 ? :
2533 0 Type::Tiny::XS::Str($word) ? :
2533 0 if ($#_ >= 0)
1793 3089 0 @_ ? :
0 3089 if @_ != 7
3089 0 $#_ >= 0 ? :
3089 0 Type::Tiny::XS::Str($input) ? :
3089 0 if ($#_ >= 0)
3089 0 $#_ >= 1 ? :
3089 0 Type::Tiny::XS::PositiveOrZeroInt($pos) ? :
3089 0 if ($#_ >= 1)
3089 0 $#_ >= 2 ? :
3089 0 Type::Tiny::XS::PositiveOrZeroInt($maxPos) ? :
3089 0 if ($#_ >= 2)
3089 0 $#_ >= 3 ? :
3089 0 Type::Tiny::XS::Str($wordValue) ? :
3089 0 if ($#_ >= 3)
3089 0 $#_ >= 4 ? :
3089 0 Type::Tiny::XS::PositiveInt($wordLength) ? :
3089 0 if ($#_ >= 4)
3089 0 $#_ >= 5 ? :
3089 0 !!ref($macroRef) ? :
3089 0 if ($#_ >= 5)
3089 0 $#_ >= 6 ? :
3089 0 !!ref($lparenPosRef) ? :
3089 0 if ($#_ >= 6)
1799 2443 646 if ($self->_macros_exists($wordValue))
1803 2399 8 $lparenPos <= $maxPos ? :
36 2407 $self->parser_isQuotedstring($input, $lparenPos, $maxPos, \$dummy, \$dummy) || $self->parser_isComment($input, $lparenPos, $maxPos, \$dummy, \$dummy) ? :
1813 2441 2 if ($lparen eq '(' or not $macro->macro_needParams)
1815 1854 587 $lparen eq '(' ? :
1823 2017 0 @_ ? :
1830 40 0 @_ ? :
40 0 $#_ >= 0 ? :
1840 28 0 @_ ? :
28 0 $#_ >= 0 ? :
1846 28 0 unless ($self->silent)
1849 2 26 if ($self->_fatal_warnings >= 1)
1852 2 26 if ($self->_fatal_warnings > 1)
1862 116 0 @_ ? :
0 116 if @_ != 1
116 0 $#_ >= 0 ? :
116 0 Type::Tiny::XS::Str($what) ? :
116 0 if ($#_ >= 0)
1870 2450 0 @_ ? :
0 2450 if @_ != 1
2450 0 $#_ >= 0 ? :
2450 0 if (&Scalar::Util::blessed($macro))
2450 0 do { if (&Scalar::Util::blessed($macro)) { my $method = $macro->can('DOES') || $macro->can('isa'); $macro->$method('MarpaX::Languages::M4::Role::Macro'); } } ? :
2450 0 if ($#_ >= 0)
1875 2450 0 unless ($self->_debug_get('t') or $self->_trace_get($macro->name))
1882 3 0 @_ ? :
3 0 $#_ >= 0 ? :
1891 0 0 @_ ? :
0 0 $#_ >= 0 ? :
1918 0 0 @_ ? :
1920 34 0 @_ ? :
1925 140 0 @_ ? :
1927 118 0 @_ ? :
1929 138 0 @_ ? :
1958 10 0 if ($self->_no_gnu_extensions and exists $Default_EXTENSIONS{$_} and $Default_EXTENSIONS{$_})
1978 3995 2205 if ($self->_builtin_need_param_exists($_))
1981 550 5650 if ($self->_param_can_be_macro_exists($_))
1985 138 6062 if ($_ eq 'dnl')
1990 127 1 if ($input =~ /\G.*?\n/su) { }
1 0 elsif ($self->_eof and $input =~ /\G[^\n]*\z/u) { }
2005 137 1 unless ($self->_no_gnu_extensions)
2013 0 138 if (is_os_type('Windows'))
2018 0 0 if ($^O eq 'os2') { }
2019 0 0 $self->_no_gnu_extensions ? :
2022 0 0 $self->_no_gnu_extensions ? :
2030 138 0 if (is_os_type('Unix'))
2031 1 137 $self->_no_gnu_extensions ? :
2042 138 0 @_ ? :
2055 142 0 @_ ? :
0 142 if @_ < 1
142 0 $#_ >= 0 ? :
142 0 Type::Tiny::XS::Bool($eoi) ? :
142 0 if ($#_ >= 0)
0 142 $#_ >= 1 ? :
2056 142 0 if ($eoi)
2065 0 21 $self->_m4wrap_order eq 'FIFO' ? :
2186 1377 0 @_ ? :
0 1377 if @_ != 1
1377 0 $#_ >= 0 ? :
1377 0 Type::Tiny::XS::Str($string) ? :
1377 0 if ($#_ >= 0)
2187 1377 0 if ($self->_quoteStartLength > 0 and $self->_quoteEndLength > 0) { }
2195 4392 0 @_ ? :
0 4392 if @_ != 1
4392 0 $#_ >= 0 ? :
4392 0 Type::Tiny::XS::Str($string) ? :
4392 0 if ($#_ >= 0)
2196 4392 0 if ($self->_quoteStartLength > 0 and $self->_quoteEndLength > 0)
2204 1457 0 @_ ? :
0 1457 if @_ < 1
1457 0 $#_ >= 0 ? :
1457 0 Type::Tiny::XS::Str($name) ? :
1457 0 if ($#_ >= 0)
2 1455 $#_ >= 1 ? :
2205 2 1455 if (@ignored)
2212 314 0 @_ ? :
314 0 $#_ >= 0 ? :
314 0 !defined($name) || Type::Tiny::XS::Str($name) || do { if (&Scalar::Util::blessed($name)) { my $method = $name->can('DOES') || $name->can('isa'); $name->$method('MarpaX::Languages::M4::Role::Macro'); } } ? :
314 0 if ($#_ >= 0)
314 0 $#_ >= 1 ? :
314 0 !defined($defn) || Type::Tiny::XS::Str($defn) || do { if (&Scalar::Util::blessed($defn)) { my $method = $defn->can('DOES') || $defn->can('isa'); $defn->$method('MarpaX::Languages::M4::Role::Macro'); } } ? :
314 0 if ($#_ >= 1)
0 314 $#_ >= 2 ? :
2213 0 314 if (&Undef()->check($name))
2224 2 312 if (&M4Macro()->check($name))
2233 307 5 if (&Str()->check($defn)) { }
2246 192 118 if (not $self->_macros_exists($name)) { }
2257 9 0 @_ ? :
9 0 $#_ >= 0 ? :
10 0 Type::Tiny::XS::Str($_) ? :
2265 74 0 @_ ? :
74 0 $#_ >= 0 ? :
78 0 Type::Tiny::XS::Str($_) ? :
2269 78 0 if ($self->_macros_exists($_))
2276 18 60 if ($macros[$_]->macro_isBuiltin) { }
2277 3 15 if ($_ == 0 and $#macros > 0 or $_ > 0) { }
2300 66 0 @_ ? :
66 0 $#_ >= 0 ? :
66 0 Type::Tiny::XS::AUTO::TC5($name) ? :
66 0 if ($#_ >= 0)
59 7 $#_ >= 1 ? :
59 0 !defined($defn) || Type::Tiny::XS::Str($defn) || do { if (&Scalar::Util::blessed($defn)) { my $method = $defn->can('DOES') || $defn->can('isa'); $defn->$method('MarpaX::Languages::M4::Role::Macro'); } } ? :
59 7 if ($#_ >= 1)
0 66 $#_ >= 2 ? :
2301 0 66 if (&Undef()->check($name))
2314 63 3 if (&Str()->check($defn)) { }
2327 30 36 if (not $self->_macros_exists($name)) { }
2338 51 0 @_ ? :
51 0 $#_ >= 0 ? :
54 0 Type::Tiny::XS::Str($_) ? :
2341 54 0 if ($self->_macros_exists($_))
2343 26 28 if ($self->_macros_get($_)->macros_isEmpty)
2351 10 0 @_ ? :
0 10 if @_ < 1
10 0 $#_ >= 0 ? :
10 0 !defined($name) || Type::Tiny::XS::Str($name) || do { if (&Scalar::Util::blessed($name)) { my $method = $name->can('DOES') || $name->can('isa'); $name->$method('MarpaX::Languages::M4::Role::Macro'); } } ? :
10 0 if ($#_ >= 0)
6 4 $#_ >= 1 ? :
2352 0 10 if (&Undef()->check($name))
2362 1 9 if (&M4Macro()->check($name))
2369 7 2 if ($self->_macros_exists($name)) { }
2375 1 5 if (&M4Macro()->check($args[$_]) and not $macro->macro_paramCanBeMacro($_))
2398 16 0 @_ ? :
15 1 $#_ >= 0 ? :
15 0 !defined($name) || Type::Tiny::XS::Str($name) || do { if (&Scalar::Util::blessed($name)) { my $method = $name->can('DOES') || $name->can('isa'); $name->$method('MarpaX::Languages::M4::Role::Macro'); } } ? :
15 1 if ($#_ >= 0)
9 7 $#_ >= 1 ? :
2399 1 15 if (&Undef()->check($name))
2406 0 15 if (&M4Macro()->check($name))
2416 11 4 if ($self->_builtins_exists($name)) { }
2439 62 0 @_ ? :
62 0 $#_ >= 0 ? :
62 0 Type::Tiny::XS::AUTO::TC5($name) ? :
62 0 if ($#_ >= 0)
62 0 $#_ >= 1 ? :
62 0 Type::Tiny::XS::AUTO::TC5($string1) ? :
62 0 if ($#_ >= 1)
19 43 $#_ >= 2 ? :
19 0 Type::Tiny::XS::AUTO::TC5($string2) ? :
19 43 if ($#_ >= 2)
1 61 $#_ >= 3 ? :
2440 0 62 if (&Undef()->check($name) or &Undef()->check($string1))
2450 41 21 if ($self->_macros_exists($name)) { }
2458 252 0 @_ ? :
252 0 $#_ >= 0 ? :
2460 1 292 if (scalar @args <= 1) { }
1 291 elsif (scalar @args == 2) { }
246 45 elsif (scalar @args >= 3 and scalar @args <= 5) { }
2477 2 244 unless (&Undef()->check($ignored))
2482 64 182 $string1 eq $string2 ? :
2489 4 41 if ($string1 eq $string2)
2497 151 0 @_ ? :
151 0 $#_ >= 0 ? :
2500 133 18 if (@args) { }
2508 4 0 @_ ? :
4 0 $#_ >= 0 ? :
2510 0 4 unless (@args)
2515 1 3 if (not $self->_macros_exists($_)) { }
2520 1 2 $self->_getMacro($_)->macro_isBuiltin ? :
2533 0 0 @_ ? :
0 0 $#_ >= 0 ? :
2540 0 0 @_ ? :
0 0 $#_ >= 0 ? :
2547 0 0 @_ ? :
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::AUTO::TC5($flags) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
2548 0 0 if (&Str()->check($flags) and length $flags <= 0)
2551 0 0 if (&Undef()->check($flags))
2560 0 0 @_ ? :
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::AUTO::TC5($file) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
2567 128 0 @_ ? :
1 127 $#_ >= 0 ? :
2572 23 0 @_ ? :
17 6 $#_ >= 0 ? :
17 0 Type::Tiny::XS::AUTO::TC5($start) ? :
17 6 if ($#_ >= 0)
17 6 $#_ >= 1 ? :
17 0 Type::Tiny::XS::AUTO::TC5($end) ? :
17 6 if ($#_ >= 1)
0 23 $#_ >= 2 ? :
2573 6 17 if (&Undef()->check($start) and &Undef()->check($end))
2581 1 22 if (length $start <= 0) { }
2594 16 0 @_ ? :
13 3 $#_ >= 0 ? :
13 0 Type::Tiny::XS::AUTO::TC5($start) ? :
13 3 if ($#_ >= 0)
13 3 $#_ >= 1 ? :
13 0 Type::Tiny::XS::AUTO::TC5($end) ? :
13 3 if ($#_ >= 1)
0 16 $#_ >= 2 ? :
2595 3 13 if (&Undef()->check($start) and &Undef()->check($end))
2603 3 13 if (length $start <= 0) { }
2616 11 0 @_ ? :
11 0 $#_ >= 0 ? :
11 0 Type::Tiny::XS::AUTO::TC5($string) ? :
11 0 if ($#_ >= 0)
0 11 $#_ >= 1 ? :
2617 0 11 if (&Undef()->check($string))
2631 22 0 @_ ? :
22 0 $#_ >= 0 ? :
2639 0 0 @_ ? :
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::AUTO::TC5($code) ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
2643 0 0 unless (&Undef()->check($code))
2644 0 0 unless (&PositiveOrZeroInt()->check($code))
2658 0 0 if (&Int()->check($number) and $number == 0)
2673 33 0 @_ ? :
0 33 if @_ != 2
33 0 $#_ >= 0 ? :
33 0 Type::Tiny::XS::Bool($silent) ? :
33 0 if ($#_ >= 0)
33 0 $#_ >= 1 ? :
33 0 Type::Tiny::XS::Str($wantedFile) ? :
33 0 if ($#_ >= 1)
2675 2 31 if (length $wantedFile <= 0)
2676 1 1 unless ($silent)
2680 1 0 if (exists &Errno::ENOENT) { }
2698 0 31 exists $ENV{'M4PATH'} && defined $ENV{'M4PATH'} ? :
2704 4 27 if ('File::Spec'->file_name_is_absolute($wantedFile)) { }
2719 2 29 unless ($file)
2724 1 1 unless ($silent)
2731 0 29 if ($self->_canDebug('p'))
2743 0 29 if ($self->_canDebug('i'))
2756 31 0 @_ ? :
0 31 if @_ < 1
31 0 $#_ >= 0 ? :
31 0 Type::Tiny::XS::AUTO::TC5($file) ? :
31 0 if ($#_ >= 0)
0 31 $#_ >= 1 ? :
2757 0 31 if (&Undef()->check($file))
2769 2 0 @_ ? :
0 2 if @_ < 1
2 0 $#_ >= 0 ? :
2 0 Type::Tiny::XS::AUTO::TC5($file) ? :
2 0 if ($#_ >= 0)
0 2 $#_ >= 1 ? :
2770 0 2 if (&Undef()->check($file))
2782 218 0 @_ ? :
0 218 if @_ != 2
218 0 $#_ >= 0 ? :
218 0 defined $number && !ref($number) && $number =~ /\A-?[0-9]+\z/u ? :
218 0 if ($#_ >= 0)
218 0 $#_ >= 1 ? :
218 0 if (&Scalar::Util::blessed($fh))
218 0 do { if (&Scalar::Util::blessed($fh)) { my $method = $fh->can('DOES') || $fh->can('isa'); $fh->$method('IO::Handle'); } } ? :
218 0 if ($#_ >= 1)
2786 185 33 if ($index >= 0)
2790 33 185 unless ($self->_diversions_exists($number))
2799 33 0 @_ ? :
0 33 if @_ != 1
33 0 $#_ >= 0 ? :
33 0 defined $number && !ref($number) && $number =~ /\A-?[0-9]+\z/u ? :
33 0 if ($#_ >= 0)
2803 33 0 if ($index >= 0) { }
2824 218 0 @_ ? :
46 172 $#_ >= 0 ? :
46 0 Type::Tiny::XS::AUTO::TC5($number) ? :
46 172 if ($#_ >= 0)
0 218 $#_ >= 1 ? :
2828 1 217 if (length "$number" <= 0)
2833 0 218 unless (&Int()->check($number))
2840 176 42 if ($number == 0) { }
2849 33 9 if (not $self->_diversions_exists($number)) { }
2854 33 0 if ($self->_divert_type eq 'memory') { }
2870 0 33 if (&Undef()->check($fh))
2888 145 0 @_ ? :
2892 157 0 @_ ? :
12 145 $#_ >= 0 ? :
15 0 Type::Tiny::XS::Str($_) ? :
2898 1 14 if (length $diversions[$_] <= 0)
2903 145 12 unless (@diversions)
2909 183 3 if (&Int()->check($number)) { }
2914 3 33 if ($number == $self->builtin_divnum or $number == 0 or not $self->_diversions_exists($number))
2923 18 15 if ($number > 0) { }
2966 225 0 @_ ? :
0 225 $#_ >= 0 ? :
2972 6 0 @_ ? :
6 0 $#_ >= 0 ? :
6 0 Type::Tiny::XS::AUTO::TC5($string) ? :
6 0 if ($#_ >= 0)
0 6 $#_ >= 1 ? :
2973 0 6 if (&Undef()->check($string))
2984 7 0 @_ ? :
6 1 $#_ >= 0 ? :
6 0 Type::Tiny::XS::AUTO::TC5($string) ? :
6 1 if ($#_ >= 0)
5 2 $#_ >= 1 ? :
5 0 Type::Tiny::XS::AUTO::TC5($substring) ? :
5 2 if ($#_ >= 1)
0 7 $#_ >= 2 ? :
2985 1 6 if (&Undef()->check($string))
2992 1 5 if (&Undef()->check($substring))
3001 0 5 if (&Undef()->check($substring))
3009 29 0 @_ ? :
29 0 $#_ >= 0 ? :
29 0 Type::Tiny::XS::AUTO::TC5($string) ? :
29 0 if ($#_ >= 0)
28 1 $#_ >= 1 ? :
28 0 Type::Tiny::XS::AUTO::TC5($regexpString) ? :
28 1 if ($#_ >= 1)
16 13 $#_ >= 2 ? :
16 0 Type::Tiny::XS::AUTO::TC5($replacement) ? :
16 13 if ($#_ >= 2)
0 29 $#_ >= 3 ? :
3010 1 28 if (&Undef()->check($string) or &Undef()->check($regexpString))
3019 1 27 unless ($r->regexp_compile($self, $self->_regexp_type, $regexpString))
3026 11 16 if (&Undef()->check($replacement)) { }
3030 7 4 if ($r->regexp_exec($self, $string) >= 0) { }
3038 14 2 if ($r->regexp_exec($self, $string) >= 0) { }
3047 4 0 @_ ? :
4 0 $#_ >= 0 ? :
4 0 Type::Tiny::XS::AUTO::TC5($string) ? :
4 0 if ($#_ >= 0)
3 1 $#_ >= 1 ? :
3 0 Type::Tiny::XS::AUTO::TC5($from) ? :
3 1 if ($#_ >= 1)
1 3 $#_ >= 2 ? :
1 0 Type::Tiny::XS::AUTO::TC5($length) ? :
1 3 if ($#_ >= 2)
0 4 $#_ >= 3 ? :
3048 0 4 if (&Undef()->check($string))
3055 1 3 if (&Undef()->check($from))
3064 1 2 if (length $from <= 0)
3070 0 3 unless (&PositiveOrZeroInt()->check($from))
3076 1 2 if (&Str()->check($length))
3077 0 1 unless (&Int()->check($length))
3084 1 2 !&Undef()->check($length) ? :
3089 25 0 @_ ? :
0 25 if @_ != 1
25 0 $#_ >= 0 ? :
25 0 Type::Tiny::XS::Str($range) ? :
25 0 if ($#_ >= 0)
3099 26 30 if ($s eq '-' and defined $from) { }
3100 25 1 ++$i <= $#chars ? :
3101 1 25 if (not defined $to) { }
23 2 elsif ($from <= $to) { }
3126 16 0 @_ ? :
16 0 $#_ >= 0 ? :
16 0 Type::Tiny::XS::AUTO::TC5($string) ? :
16 0 if ($#_ >= 0)
16 0 $#_ >= 1 ? :
16 0 Type::Tiny::XS::AUTO::TC5($from) ? :
16 0 if ($#_ >= 1)
15 1 $#_ >= 2 ? :
15 0 Type::Tiny::XS::AUTO::TC5($to) ? :
15 1 if ($#_ >= 2)
0 16 $#_ >= 3 ? :
3127 0 16 if (&Undef()->check($string))
3134 0 16 if (&Undef()->check($from))
3144 0 16 if ($fromLength <= 0)
3155 11 5 if (index($to, '-') >= 0)
3165 14 2 if (index($from, '-') >= 0)
3173 305 1 unless (exists $map{$_})
3174 277 28 if ($ito <= $toMaxIndice) { }
3181 278 28 if ($ito <= $toMaxIndice)
3188 47 82 if (exists $map{$_}) { }
3202 12 0 @_ ? :
12 0 $#_ >= 0 ? :
12 0 Type::Tiny::XS::AUTO::TC5($string) ? :
12 0 if ($#_ >= 0)
11 1 $#_ >= 1 ? :
11 0 Type::Tiny::XS::AUTO::TC5($regexpString) ? :
11 1 if ($#_ >= 1)
9 3 $#_ >= 2 ? :
9 0 Type::Tiny::XS::AUTO::TC5($replacement) ? :
9 3 if ($#_ >= 2)
0 12 $#_ >= 3 ? :
3203 0 12 if (&Undef()->check($string))
3211 1 11 if (&Undef()->check($regexpString))
3220 0 11 unless ($r->regexp_compile($self, $self->_regexp_type, $regexpString))
3239 8 31 if ($matchPos < 0)
3240 0 8 if ($matchPos < -1) { }
3 5 elsif ($offset < $length) { }
3251 23 8 if ($matchPos > 0)
3269 15 16 if ($r->regexp_lpos_get(0) == $offset)
3278 18 0 @_ ? :
18 0 $#_ >= 0 ? :
18 0 Type::Tiny::XS::AUTO::TC5($format) ? :
18 0 if ($#_ >= 0)
18 0 $#_ >= 1 ? :
32 0 Type::Tiny::XS::Str($_) ? :
3279 0 18 if (&Undef()->check($format))
3297 78 0 @_ ? :
78 0 $#_ >= 0 ? :
78 0 Type::Tiny::XS::AUTO::TC5($number) ? :
78 0 if ($#_ >= 0)
0 78 $#_ >= 1 ? :
0 0 Type::Tiny::XS::Str($_) ? :
3300 1 77 if (length $number <= 0)
3305 0 78 unless (&Int()->check($number))
3314 0 78 if ($self->_integer_type eq 'native') { }
3324 21 0 @_ ? :
21 0 $#_ >= 0 ? :
21 0 Type::Tiny::XS::AUTO::TC5($number) ? :
21 0 if ($#_ >= 0)
0 21 $#_ >= 1 ? :
0 0 Type::Tiny::XS::Str($_) ? :
3327 1 20 if (length $number <= 0)
3332 0 21 unless (&Int()->check($number))
3341 0 21 if ($self->_integer_type eq 'native') { }
3351 171 0 @_ ? :
171 0 $#_ >= 0 ? :
171 0 Type::Tiny::XS::AUTO::TC5($expression) ? :
171 0 if ($#_ >= 0)
10 161 $#_ >= 1 ? :
10 0 Type::Tiny::XS::AUTO::TC5($radix) ? :
10 161 if ($#_ >= 1)
5 166 $#_ >= 2 ? :
5 0 Type::Tiny::XS::AUTO::TC5($width) ? :
5 166 if ($#_ >= 2)
0 171 $#_ >= 3 ? :
0 0 Type::Tiny::XS::Str($_) ? :
3352 0 171 if (&Undef()->check($expression))
3361 0 171 if (&Undef()->check($expression))
3369 163 8 if (&Undef()->check($radix) or length $radix <= 0)
3372 0 171 unless (&PositiveInt()->check($radix))
3380 1 170 if ($radix < 1 or $radix > 36)
3391 165 5 if (&Undef()->check($width) or length $width <= 0)
3394 1 169 unless (&PositiveOrZeroInt()->check($width))
3404 1 168 if (length $expression <= 0)
3435 0 168 if ($ambiguous_status)
3439 167 1 if (defined $registrations)
3443 1 161 unless (defined $registrations)
3446 0 162 unless (defined $valuep)
3467 8 0 @_ ? :
0 8 if @_ < 2
8 0 $#_ >= 0 ? :
8 0 Type::Tiny::XS::Str($macroName) ? :
8 0 if ($#_ >= 0)
8 0 $#_ >= 1 ? :
8 0 Type::Tiny::XS::Bool($appendValue) ? :
8 0 if ($#_ >= 1)
8 0 $#_ >= 2 ? :
8 0 Type::Tiny::XS::AUTO::TC5($command) ? :
8 0 if ($#_ >= 2)
0 8 $#_ >= 3 ? :
0 0 Type::Tiny::XS::Str($_) ? :
3468 0 8 if (&Undef()->check($command))
3478 8 0 if (length $command > 0)
3491 8 0 if (not $@)
3495 8 0 if ($executed)
3497 8 0 if ($self->_cmdtounix)
3501 0 8 if (length $stderr > 0)
3504 4 4 if ($appendValue) { }
3516 4 0 @_ ? :
4 0 $#_ >= 0 ? :
4 0 Type::Tiny::XS::AUTO::TC5($command) ? :
4 0 if ($#_ >= 0)
0 4 $#_ >= 1 ? :
0 0 Type::Tiny::XS::Str($_) ? :
3520 4 0 @_ ? :
4 0 $#_ >= 0 ? :
4 0 Type::Tiny::XS::AUTO::TC5($command) ? :
4 0 if ($#_ >= 0)
0 4 $#_ >= 1 ? :
0 0 Type::Tiny::XS::Str($_) ? :
3524 7 0 @_ ? :
0 7 $#_ >= 0 ? :
0 0 Type::Tiny::XS::Str($_) ? :
3530 2 0 @_ ? :
0 2 if @_ < 1
2 0 $#_ >= 0 ? :
2 0 Type::Tiny::XS::Str($macro) ? :
2 0 if ($#_ >= 0)
2 0 $#_ >= 1 ? :
2 0 Type::Tiny::XS::AUTO::TC5($template) ? :
2 0 if ($#_ >= 1)
0 2 $#_ >= 2 ? :
0 0 Type::Tiny::XS::Str($_) ? :
3531 0 2 if (&Undef()->check($template))
3556 1 0 @_ ? :
1 0 $#_ >= 0 ? :
1 0 Type::Tiny::XS::Str($_) ? :
3560 1 0 @_ ? :
1 0 $#_ >= 0 ? :
1 0 Type::Tiny::XS::Str($_) ? :
3564 5 0 @_ ? :
5 0 $#_ >= 0 ? :
6 0 Type::Tiny::XS::Str($_) ? :
3577 2 0 @_ ? :
0 2 $#_ >= 0 ? :
0 0 Type::Tiny::XS::Str($_) ? :
3582 2 0 @_ ? :
0 2 $#_ >= 0 ? :
0 0 Type::Tiny::XS::Str($_) ? :
3587 2 0 @_ ? :
0 2 $#_ >= 0 ? :
0 0 Type::Tiny::XS::Str($_) ? :
3599 370 0 @_ ? :
0 370 if @_ != 2
370 0 $#_ >= 0 ? :
370 0 Type::Tiny::XS::Str($name) ? :
370 0 if ($#_ >= 0)
370 0 $#_ >= 1 ? :
370 0 Type::Tiny::XS::Str($expansion) ? :
370 0 if ($#_ >= 1)
3603 2 368 if ($self->_warn_macro_sequence)
3613 0 2 if ($r->regexp_lpos_get(0) == $r->regexp_rpos_get(0)) { }
3632 0 0 if ($offset < -1)
3651 124 152 if ($dollarOne > $maxArgumentIndice)
3654 40 236 if ($dollarOne == 0) { }
3668 25 343 if ($newExpansion =~ s/\\\$\\\#/" . \$nbArgs . "/gu)
3675 15 353 if ($newExpansion =~ s/\\\$\\\*/" . \$listArgs . "/gu)
3682 46 322 if ($newExpansion =~ s/\\\$\\\@/" . \$listArgsQuoted . "/gu)
3692 78 290 if (%wantedArgumentIndice)
3710 0 368 if ($@)
3720 0 0 @_ ? :
0 0 if @_ != 1
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::Str($expected) ? :
0 0 if ($#_ >= 0)
3721 0 0 if ($expected eq "\n") { }
3732 142 0 @_ ? :
0 142 if @_ != 0
3733 140 2 unless ($self->_stateFreezed)
3734 0 140 if (length $self->freeze_state > 0)
3744 0 0 if ($ENV{'M4_ENCODE_LOCALE'}) { }
3771 0 0 if ($self->_quote_start ne $DEFAULT_QUOTE_START or $self->_quote_end ne $DEFAULT_QUOTE_END)
3786 0 0 if ($self->_comment_start ne $DEFAULT_COMMENT_START or $self->_comment_end ne $DEFAULT_COMMENT_END)
3814 0 0 if ($_->macro_isBuiltin) { }
3840 0 0 @_ ? :
0 0 if @_ != 0
3841 0 0 unless ($self->_stateReloaded)
3842 0 0 if (length $self->reload_state > 0)
3863 0 0 if ($advance_line)
3868 0 0 if ($character eq "\n")
3887 0 0 if ($character ne $expected)
3896 0 0 if ($character eq '#')
3908 0 0 if ($number[$i] > 0 and not $fh->read($string[$i], $number[$i]))
3921 0 0 if ($number[0] > 1) { }
0 0 elsif ($number[0] < 1) { }
3934 0 0 if ($character eq 'C' or $character eq 'D' or $character eq 'F' or $character eq 'T' or $character eq 'Q') { }
3945 0 0 if ($operation eq 'D' and $character eq '-') { }
3956 0 0 if ($operation ne 'D')
3963 0 0 if ($operation eq 'C') { }
0 0 elsif ($operation eq 'D') { }
0 0 elsif ($operation eq 'F') { }
0 0 elsif ($operation eq 'T') { }
0 0 elsif ($operation eq 'Q') { }
3969 0 0 if ($number[1] > 0)
3974 0 0 if ($self->_builtins_exists($string[1]))
4013 29 0 @_ ? :
0 29 if @_ < 1
0 29 if @_ > 4
29 0 $#_ >= 0 ? :
29 0 Type::Tiny::XS::Str($file) ? :
29 0 if ($#_ >= 0)
29 0 $#_ >= 1 ? :
29 0 Type::Tiny::XS::Bool($silent) ? :
29 0 if ($#_ >= 1)
29 0 $#_ >= 2 ? :
29 0 Type::Tiny::XS::Bool($parse) ? :
29 0 if ($#_ >= 2)
29 0 $#_ >= 3 ? :
29 0 ref $contentp && &Scalar::Util::reftype($contentp) eq 'SCALAR' ? :
29 0 if ($#_ >= 3)
4018 0 29 $ENV{'M4_ENCODE_LOCALE'} ? :
4020 29 0 if ($uni_file ne '-') { }
4030 0 29 if ($ENV{'M4_ENCODE_LOCALE'})
4035 0 0 unless ($silent)
4041 29 0 unless (&Undef()->check($fh))
4047 0 29 if ($self->_canDebug('i'))
4056 0 0 unless ($silent)
4065 0 0 unless ($silent)
4070 29 0 unless (&Undef()->check($content))
4071 29 0 if ($self->_inctounix)
4075 29 0 unless (&Undef()->check($contentp))
4078 0 29 if ($parse)
4081 0 29 if ($self->_canDebug('i'))
4088 0 0 unless ($silent)
4097 0 0 if (not open($fh, '<&STDIN')) { }
4098 0 0 unless ($silent)
4104 0 0 if ($ENV{'M4_ENCODE_LOCALE'})
4105 0 0 if (is_interactive($fh)) { }
4117 0 0 if ($self->_canDebug('i'))
4121 0 0 if ($parse and is_interactive($fh))
4126 0 0 unless (defined($content = readline $fh))
4129 0 0 if ($self->_inctounix)
4132 0 0 unless (&Undef()->check($contentp))
4135 0 0 if ($parse)
4137 0 0 if (is_interactive($fh))
4144 0 0 if ($self->_canDebug('i'))
4147 0 0 unless (close $fh)
4148 0 0 unless ($silent)
4159 164 0 @_ ? :
0 164 if @_ != 1
164 0 $#_ >= 0 ? :
164 0 Type::Tiny::XS::Str($input) ? :
164 0 if ($#_ >= 0)
4172 0 3 unless ($self->impl_isImplException($_))
4188 3 0 @_ ? :
0 3 if @_ != 1
3 0 $#_ >= 0 ? :
3 0 if ($#_ >= 0)
4190 0 3 unless ($blessed)
4194 0 3 unless (grep {$obj->$DOES($_);} &ImplException())
4200 2904 0 @_ ? :
0 2904 if @_ != 1
2904 0 $#_ >= 0 ? :
2904 0 Type::Tiny::XS::Str($result) ? :
2904 0 if ($#_ >= 0)
4205 140 0 @_ ? :
0 140 if @_ != 1
140 0 $#_ >= 0 ? :
140 0 Type::Tiny::XS::Str($input) ? :
140 0 if ($#_ >= 0)
4206 0 140 if ($self->_eoi)
4214 142 0 @_ ? :
0 142 if @_ != 0
4220 140 0 @_ ? :
0 140 if @_ != 0
4228 3 137 if ($self->_unparsed)
4237 140 0 @_ ? :
0 140 if @_ != 0
4241 0 0 @_ ? :
0 0 if @_ != 0
4245 0 0 @_ ? :
0 0 if @_ != 0
4249 0 0 @_ ? :
0 0 if @_ != 0
4253 0 0 @_ ? :
0 0 if @_ != 1
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::Str($what) ? :
0 0 if ($#_ >= 0)
4257 0 0 @_ ? :
0 0 if @_ != 0
4261 0 0 @_ ? :
0 0 if @_ != 0
4265 0 0 @_ ? :
0 0 if @_ < 1
0 0 if @_ > 2
0 0 $#_ >= 0 ? :
0 0 Type::Tiny::XS::Str($input) || do { if (&Scalar::Util::blessed($input)) { my $method = $input->can('DOES') || $input->can('isa'); $input->$method('MarpaX::Languages::M4::Role::Macro'); } } ? :
0 0 if ($#_ >= 0)
0 0 $#_ >= 1 ? :
0 0 Type::Tiny::XS::Bool($noQuote) ? :
0 0 if ($#_ >= 1)
4270 0 0 &Str()->check($input) ? :
4272 0 0 $noQuote ? :
0 0 &Str()->check($input) ? :
4277 11 0 @_ ? :
0 11 if @_ < 1
11 0 $#_ >= 0 ? :
11 0 if (&Scalar::Util::blessed($macro))
11 0 do { if (&Scalar::Util::blessed($macro)) { my $method = $macro->can('DOES') || $macro->can('isa'); $macro->$method('MarpaX::Languages::M4::Role::Macro'); } } ? :
11 0 if ($#_ >= 0)
9 2 $#_ >= 1 ? :
4283 2 9 if ($macro->stub == \&MarpaX::Languages::M4::Impl::Default::builtin_m4wrap or $macro->stub == \&MarpaX::Languages::M4::Impl::Default::builtin_include or $macro->stub == \&MarpaX::Languages::M4::Impl::Default::builtin_sinclude) { }
4297 2450 0 @_ ? :
0 2450 if @_ != 2
2450 0 $#_ >= 0 ? :
2450 0 if (&Scalar::Util::blessed($macro))
2450 0 do { if (&Scalar::Util::blessed($macro)) { my $method = $macro->can('DOES') || $macro->can('isa'); $macro->$method('MarpaX::Languages::M4::Role::Macro'); } } ? :
2450 0 if ($#_ >= 0)
2450 0 $#_ >= 1 ? :
2450 0 Type::Tiny::XS::Bool($canTrace) ? :
2450 0 if ($#_ >= 1)
4305 0 2450 if ($canTrace)
4314 2449 0 @_ ? :
0 2449 if @_ < 3
2449 0 $#_ >= 0 ? :
2449 0 if (&Scalar::Util::blessed($macro))
2449 0 do { if (&Scalar::Util::blessed($macro)) { my $method = $macro->can('DOES') || $macro->can('isa'); $macro->$method('MarpaX::Languages::M4::Role::Macro'); } } ? :
2449 0 if ($#_ >= 0)
2449 0 $#_ >= 1 ? :
2449 0 Type::Tiny::XS::PositiveOrZeroInt($macroCallId) ? :
2449 0 if ($#_ >= 1)
2449 0 $#_ >= 2 ? :
2449 0 Type::Tiny::XS::Bool($canTrace) ? :
2449 0 if ($#_ >= 2)
1860 589 $#_ >= 3 ? :
4322 0 0 if ($canTrace and $self->_canDebug('a') || $self->_canDebug('c'))
4326 0 0 if (@args) { }
4339 0 0 if ($canTrace and $self->_canDebug('e') || $self->_canDebug('c'))
4341 0 0 if (length $rc > 0) { }
4342 0 0 if (@args) { }
4352 0 0 if (@args) { }
4364 0 0 @_ ? :
0 0 if @_ != 0
4368 0 0 @_ ? :
0 0 if @_ != 0
4372 1 0 @_ ? :
0 1 if @_ != 0
4376 7 0 @_ ? :
0 7 if @_ != 1
7 0 $#_ >= 0 ? :
7 0 Type::Tiny::XS::Str($message) ? :
7 0 if ($#_ >= 0)
4388 0 0 @_ ? :
0 0 if @_ != 0
4392 0 0 @_ ? :
0 0 if @_ != 0
4397 0 0 @_ ? :
0 0 if @_ != 0
4401 0 0 @_ ? :
0 0 if @_ != 0