| line |
l |
!l&&r |
!l&&!r |
condition |
|
159
|
0 |
0 |
1 |
eval {
do {
require Data::GUID;
lc 'Data::GUID'->new->as_string
}
} || eval {
do {
require Data::UUID;
my $ug = 'Data::UUID'->new;
my $uuid_bin = $ug->create;
lc $ug->to_string($uuid_bin)
}
} || do {
my @r;
push @r, rand 65535 foreach (1 .. 9);
sprintf '%04x%04x-%04x-%04x-%04x-%04x%04x%04x', @r
} |
|
213
|
10 |
5 |
19 |
ref $h eq 'GLOB' or ref \$h eq 'GLOB' |
|
|
15 |
3 |
16 |
ref $h eq 'GLOB' or ref \$h eq 'GLOB' or $h eq 'STDIN' |
|
|
8 |
1 |
15 |
ref $h eq 'GLOB' or ref \$h eq 'GLOB' or $h eq 'STDIN' or $h eq 'STDOUT' |
|
225
|
4 |
1 |
1 |
$file eq '' || $file eq '-' || $file eq 'STDIN' |
|
232
|
4 |
1 |
1 |
$file eq '' || $file eq '-' || $file eq 'STDOUT' |