| line |
true |
false |
branch |
|
77
|
0 |
5 |
if $$import{'pragma'}{'embedded'}
|
|
89
|
0 |
5 |
if ($$import{'pragma'}{'rpc'} and $0 eq '-')
|
|
136
|
177 |
5 |
unless ($$import{'pragma'}{'config'})
|
|
139
|
0 |
177 |
if ($$import{'pragma'}{'l10n'})
|
|
151
|
43 |
134 |
if $$import{'pragma'}{'export'}
|
|
154
|
0 |
177 |
if ($$import{'pragma'}{'inline'})
|
|
159
|
0 |
177 |
if $$import{'pragma'}{'dist'}
|
|
162
|
35 |
142 |
if $$import{'pragma'}{'const'}
|
|
165
|
10 |
167 |
if ($$import{'pragma'}{'ansi'})
|
|
173
|
0 |
177 |
if ($$import{'pragma'}{'result'})
|
|
180
|
0 |
177 |
if ($$import{'pragma'}{'sql'})
|
|
187
|
78 |
99 |
if ($$import{'pragma'}{'class'} or $$import{'pragma'}{'role'})
|
|
196
|
0 |
78 |
if (my $ref = $caller->can('TO_DATA'))
|
|
197
|
0 |
0 |
unless $caller->can('TO_JSON')
|
|
199
|
0 |
0 |
unless $caller->can('TO_CBOR')
|
|
208
|
69 |
9 |
if ($$import{'pragma'}{'class'}) { }
|
|
|
9 |
0 |
elsif ($$import{'pragma'}{'role'}) { }
|
|
223
|
78 |
99 |
if $$import{'pragma'}{'types'}
|
|
227
|
0 |
177 |
if ($$import{'pragma'}{'autoload'})
|
|
252
|
4756 |
146 |
if ("${class}::$subname" ne $fullname and not exists $EXCEPT->{$subname} and substr($subname, 0, 1) ne '(')
|
|
258
|
0 |
19024 |
defined $def ? :
|
|
271
|
9 |
69 |
if ($role) { }
|
|
292
|
0 |
0 |
if $spec{'lazy'} and not exists $spec{'default'} and not exists $spec{'builder'}
|
|
331
|
0 |
0 |
if ('Moo::Role'->is_role($caller)) { }
|
|
348
|
0 |
5 |
if ($Pcore::MSWIN) { }
|
|
355
|
0 |
0 |
if ($CON_ENC) { }
|
|
360
|
0 |
0 |
unless Encode::perlio_ok($CON_ENC)
|
|
363
|
0 |
0 |
unless (eval {
do {
die unless Encode::perlio_ok($CON_ENC);
1
}
})
|
|
387
|
0 |
5 |
if (-t *STDIN) { }
|
|
388
|
0 |
0 |
if ($Pcore::MSWIN) { }
|
|
389
|
0 |
0 |
unless binmode *STDIN, ":raw:crlf:encoding($CON_ENC)"
|
|
392
|
0 |
0 |
unless binmode *STDIN, ':raw:encoding(UTF-8)'
|
|
396
|
0 |
5 |
unless binmode *STDIN, ':raw'
|
|
400
|
0 |
5 |
unless open our $STDOUT_UTF8, '>&STDOUT'
|
|
405
|
0 |
5 |
unless open our $STDERR_UTF8, '>&STDERR'
|
|
426
|
0 |
10 |
if ($Pcore::MSWIN) { }
|
|
427
|
0 |
0 |
if (-t $h) { }
|
|
430
|
0 |
0 |
unless binmode $h, ':raw:via(Pcore::Core::PerlIOviaWinUniCon)'
|
|
433
|
0 |
0 |
unless binmode $h, ':raw:encoding(UTF-8)'
|
|
437
|
0 |
10 |
if (-t $h) { }
|
|
438
|
0 |
0 |
unless binmode $h, ':raw:encoding(UTF-8)'
|
|
441
|
0 |
10 |
unless binmode $h, ':raw:encoding(UTF-8)'
|
|
455
|
5 |
0 |
unless ($EMBEDDED)
|
|
460
|
5 |
0 |
unless ($Pcore::MSWIN)
|
|
463
|
0 |
5 |
if (defined $$ENV{'UID'} and not defined $$ENV{'GID'})
|
|
464
|
0 |
0 |
$$ENV{'UID'} =~ /\A\d+\z/msu ? :
|
|
466
|
0 |
0 |
unless defined $uid
|
|
474
|
0 |
5 |
if $$ENV{'DAEMONIZE'}
|
|
492
|
0 |
32 |
unless my $class = $$UTIL{$util}
|
|
498
|
13 |
19 |
if ($class->can('new')) { }
|
|
510
|
0 |
10 |
unless defined &{"Pcore::Util::File::$method";}
|
|
|
0 |
8 |
unless defined &{"Pcore::Util::Config::$method";}
|
|
|
0 |
9 |
unless defined &{"Pcore::Util::Class::$method";}
|
|
|
0 |
7 |
unless defined &{"Pcore::Util::PM::$method";}
|
|
554
|
0 |
0 |
if *{Moo::_Utils::_getglob("${into}::DEMOLISHALL");}{'CODE'}
|
|
562
|
0 |
0 |
if $class->can('DEMOLISH') and $class->isa('Moo::Object')
|
|
578
|
0 |
0 |
if ($ENV->dist)
|
|
622
|
0 |
0 |
unless $broker->has_listeners("LOG.$key")
|
|
628
|
0 |
0 |
unless $$ev{'level'}
|