| line |
true |
false |
branch |
|
27
|
1 |
1 |
unless (defined $authn) |
|
29
|
1 |
0 |
defined $verbose ? : |
|
71
|
0 |
0 |
$success ? : |
|
81
|
1 |
4 |
defined $fork_id ? : |
|
82
|
1 |
4 |
defined $number_of_forks ? : |
|
87
|
4 |
1 |
if (defined $file and open my $input, '<', $file) { } |
|
90
|
4 |
2 |
if ($count++ == 0) { } |
|
|
2 |
0 |
elsif ($fork_id == $count++ % $number_of_forks) { } |
|
93
|
4 |
0 |
if ($csv->parse($_)) { } |
|
97
|
1 |
3 |
unless ($column_headings[0] =~ /^[Ii][Dd]$/msx) |
|
110
|
2 |
0 |
if ($csv->parse($_)) { } |
|
115
|
1 |
1 |
if ($columns_size != $number_of_columns) |
|
129
|
1 |
6 |
if ($heading =~ /^[Tt][Ii][Tt][Ll][Ee]$/msx) { } |
|
|
1 |
5 |
elsif ($heading =~ /^[Dd][Ee][Ss][Cc][Rr][Ii][Pp][Tt][Ii][Oo][Nn]$/msx) { } |
|
|
1 |
4 |
elsif ($heading =~ /^[Tt][Aa][Gg][Ss]$/msx) { } |
|
|
1 |
3 |
elsif ($heading =~ /^[Vv][Ii][Ss][Ii][Bb][Ii][Ll][Ii][Tt][Yy]$/msx) { } |
|
|
1 |
2 |
elsif ($heading =~ /^[Jj][Oo][Ii][Nn][Aa][Bb][Ii][Ll][Ii][Tt][Yy]$/msx) { } |
|
|
1 |
1 |
elsif ($heading =~ /^[Ww][Oo][Rr][Ll][Dd][Tt][Ee][Mm][Pp][Ll][Aa][Tt][Ee]$/msx) { } |
|
173
|
0 |
1 |
unless close $input |
|
200
|
0 |
1 |
unless GetOptions $world_config, 'auth=s', 'help|?', 'log|L=s', 'man|M', 'pass|p=s', 'threads|t=s', 'url|U=s', 'user|u=s', 'verbose|v+', 'add|a', 'additions|A=s', 'copy|c', 'delete|d', 'exists|e', 'filename|n=s', 'local|l=s', 'move|m', 'property|P=s', 'remote|r=s', 'remote-source|S=s', 'replace|R', 'view|V', 'view-copyright=s', 'view-description=s', 'view-tags=s', 'view-title=s', 'view-visibility=s' |
|
325
|
1 |
1 |
unless (defined $config) |
|
331
|
1 |
0 |
defined $$nakamura{'Authn'} ? : |
|
336
|
0 |
1 |
if ($$nakamura{'Help'}) { } |
|
|
0 |
1 |
elsif ($$nakamura{'Man'}) { } |
|
|
0 |
1 |
elsif (defined ${$$config{'additions'};}) { } |
|
345
|
0 |
0 |
if ($pid) { } |
|
|
0 |
0 |
elsif ($pid == 0) { } |
|
366
|
0 |
1 |
if (defined ${$$config{'add'};}) { } |