| line |
true |
false |
branch |
|
408
|
1 |
1 |
if ($app) |
|
415
|
19 |
13 |
if not ref $vars{$var} or ref $vars{$var} eq 'SCALAR' |
|
484
|
4 |
2 |
if (keys %args) |
|
491
|
0 |
4 |
if $search_obj |
|
492
|
0 |
4 |
if $search_obj |
|
536
|
0 |
1 |
if ($^O =~ /MSWin/) |
|
545
|
1 |
0 |
unless ($write_path) |
|
554
|
1 |
0 |
unless ($path) |
|
563
|
1 |
0 |
unless ($filename) |
|
576
|
0 |
1 |
if $this->debug |
|
606
|
2 |
5 |
if ($saved_argv[$argc] =~ /^\-($OPT_CFGPATH|$OPT_CFGWRPATH|$OPT_CFG)$/) |
|
618
|
1 |
0 |
if ($ok) |
|
653
|
8 |
3 |
unless ($opt_href) |
|
657
|
6 |
2 |
if $config{$field}{'type'} |
|
661
|
8 |
0 |
if $config{$field}{'description'} |
|
668
|
1 |
0 |
if (@new_options) |
|
707
|
3 |
18 |
if $$option_entry_href{'developer'} |
|
711
|
3 |
15 |
if $$option_entry_href{'owner'} =~ /::Pod$/ |
|
716
|
11 |
4 |
if (exists $$config_href{$option_name}) { } |
|
724
|
11 |
22 |
unless defined $$config_href{$option_name}{$field} |
|
728
|
0 |
11 |
if $$option_entry_href{'dest_type'} |
|
729
|
0 |
11 |
unless defined $$config_href{$option_name}{'type'} |
|
739
|
0 |
4 |
if $$option_entry_href{'dest_type'} |
|
760
|
0 |
1 |
if ($opt->option($OPT_CFGWR)) |
|
784
|
0 |
0 |
if %args |
|
830
|
2 |
0 |
if ($read_filepath) |
|
1002
|
4 |
6 |
if ($name and exists $$config_href{$name}) |
|
1017
|
4 |
6 |
if (ref $config_href eq 'ARRAY') |
|
1028
|
82 |
24 |
if (ref $$href{$key} eq 'HASH') |
|
1061
|
12 |
2 |
if ($name and exists $$config_href{$name}) |
|
1068
|
12 |
2 |
if (ref $config_href eq 'ARRAY') { } |
|
1101
|
146 |
8 |
if (ref $$href{$key} eq 'HASH') |
|
1166
|
0 |
2 |
unless open my $fh, "<$filename" |
|
1179
|
57 |
318 |
unless ($line) |
|
1182
|
0 |
57 |
if ($params{'name'}) |
|
1210
|
75 |
243 |
if ($line =~ /^##\s*([^\s:]+)(?:\s*:){0,1}(.*)/) { } |
|
|
68 |
175 |
elsif ($line =~ /^#\s*(\S+.*)/) { } |
|
|
20 |
155 |
elsif ($line =~ /^\s*\[([^\]]+)\]/) { } |
|
1235
|
8 |
12 |
unless (exists $sections{$section}) |
|
1251
|
86 |
232 |
if ($line =~ /^\s*([^\s#]+)\s*=\s*(.*)/) |
|
1281
|
0 |
2 |
if ($params{'name'}) |
|
1325
|
64 |
26 |
unless defined $type |
|
1330
|
34 |
56 |
if ("$description$summary") |
|
1332
|
0 |
34 |
if (not $description) { } |
|
|
8 |
26 |
elsif (not $summary) { } |
|
1373
|
0 |
1 |
unless open my $fh, ">$write_file" |
|
1427
|
28 |
15 |
if (not "$description$summary" and $$href{$var}{'type'} eq 's') { } |
|
|
4 |
11 |
elsif ($description =~ /^$summary/ and $$href{$var}{'type'} eq 's') { } |