Branch Coverage

blib/lib/NBI/Opts.pm
Criterion Covered Total %
branch 80 122 65.5


line true false branch
28 105 3 if (substr($_[0], 0, 1) eq "-")
36 104 714 if ($i =~ /^-queue/u) { }
102 612 elsif ($i =~ /^-threads/u) { }
102 510 elsif ($i =~ /^-memory/u) { }
102 408 elsif ($i =~ /^-tmpdir/u) { }
101 307 elsif ($i =~ /^-(mail|email_address)/u) { }
101 206 elsif ($i =~ /^-(when|email_type)/u) { }
101 105 elsif ($i =~ /^-opts/u) { }
102 3 elsif ($i =~ /^-time/u) { }
1 2 elsif ($i =~ /^-placeholder/u) { }
1 1 elsif ($i =~ /^-files/u) { }
37 0 104 unless defined $data{$i}
43 0 102 unless defined $data{$i}
45 102 0 if ($data{$i} =~ /^\d+$/u) { }
54 0 102 unless defined $data{$i}
60 0 102 unless defined $data{$i}
65 0 101 unless defined $data{$i}
70 0 101 unless defined $data{$i}
76 0 101 unless defined $data{$i}
78 0 101 if (ref $data{$i} ne "ARRAY")
91 0 1 unless (defined $data{$i})
94 0 1 if ($data{$i} =~ /[\*\+\?]/u)
102 0 1 if (ref $data{$i} ne 'ARRAY') { }
117 104 3 defined $queue ? :
118 102 5 defined $threads ? :
119 102 5 defined $memory ? :
120 102 5 defined $hours ? :
121 102 5 defined $tmpdir ? :
122 101 6 defined $email_address ? :
123 101 6 defined $email_when ? :
124 1 106 defined $files ? :
125 1 106 defined $placeholder ? :
127 101 6 defined $opts_array->[0] ? :
141 0 109 if defined $new_val
148 0 107 if defined $new_val
155 0 107 if defined $new_val
162 0 107 if defined $new_val
169 0 107 if defined $new_val
177 0 108 if defined $new_val
184 0 312 if defined $new_val
195 0 107 if defined $new_val
202 0 311 if defined $new_val
209 107 0 unless (defined $self->{'opts'})
214 0 0 if ref $new_val ne "ARRAY"
215 0 0 if defined $new_val
228 1 0 defined $self->{'opts'} ? :
242 203 0 if defined $o
262 202 1 if (defined $self->{'email_address'})
269 0 202 unless defined $o
274 1 202 if ($self->is_array)
293 102 0 if ($mem =~ /^(\d+)$/u) { }
0 0 elsif ($mem =~ /^(\d+)\.?(MB?|GB?|TB?|KB?)$/iu) { }
297 0 0 if (substr(uc $2, 0, 1) eq 'G') { }
0 0 elsif (substr(uc $2, 0, 1) eq 'T') { }
0 0 elsif (substr(uc $2, 0, 1) eq 'M') { }
0 0 elsif (substr(uc $2, 0, 1) eq 'K') { }
320 0 102 if ($time =~ /^(\d+)$/u) { }
328 101 303 if ($unit eq 'D') { }
101 202 elsif ($unit eq 'H') { }
101 101 elsif ($unit eq 'M') { }
101 0 elsif ($unit eq 'S') { }