Branch Coverage

blib/lib/BigIP/GTM/ParseConfig.pm
Criterion Covered Total %
branch 0 114 0.0


line true false branch
105 0 0 unless $self->{'Parsed'}{'gtm pool'}{$pool}{'members'}
107 0 0 if (ref $self->{'Parsed'}{'gtm pool'}{$pool}{'members'} eq 'HASH') { }
124 0 0 unless $self->{'Parsed'}{'gtm wideip'}
132 0 0 if defined $self->pool($pool)
140 0 0 if $details
143 0 0 if $vs
159 0 0 unless $arg->{'type'} and $arg->{'key'}
168 0 0 unless $self->{'Parsed'}{$obj}{$key}
171 0 0 unless $self->{'Parsed'}{$obj}{$key}{$attr}
183 0 0 unless $self->{'Modify'}
190 0 0 if ($self->{'Modify'}{$obj}{$key}) { }
193 0 0 unless $self->{'Parsed'}{$obj}{$key}{$attr}
196 0 0 if (ref $self->{'Modify'}{$obj}{$key}{$attr} eq 'ARRAY') { }
199 0 0 if (@{$self->{'Modify'}{$obj}{$key}{$attr};} > 1) { }
209 0 0 if ($self->{'Parsed'}{$obj}{$key}{'_xtra'}{$val})
255 0 0 unless defined $var
266 0 0 if ($self->{'Parsed'}{$obj}) { }
279 0 0 if /auth/u
280 0 0 if /gtm monitor/u
283 0 0 if /gtm node/u
284 0 0 if /gtm pool/u
285 0 0 if /partition/u
286 0 0 if /net self/u
287 0 0 if /auth user/u
289 0 0 if /gtm server/u
303 0 0 unless -e $self->{'ConfigFile'}
315 0 0 if ($ln =~ /^(auth user|patition|cli)\s(.*)\s\{(\s\})?$/u) { }
0 0 elsif ($ln =~ /^(gtm wideip|gtm pool|gtm server|gtm monitor|gtm region)\s(.*)\s\{(\s\})?$/u) { }
0 0 elsif ($ln =~ /^(net self|net route|net interface|net vlan|net trunk)\s(.*)\s\{(\s\})?$/u) { }
0 0 elsif ($ln =~ /^(sys management-route)\s(.*)\s\{(\s\})?$/u) { }
0 0 elsif ($ln =~ /^(sys)\s(snmp|sshd|ntp|syslog|state-mirroring)\s\{(\s\})?$/u) { }
0 0 elsif ($ln =~ /^\}$/u) { }
318 0 0 if $3
328 0 0 if $3
338 0 0 if $3
345 0 0 if $3
354 0 0 if $3
362 0 0 if ($obj and $key)
366 0 0 if ($ln =~ /^\s{4}(\S+)\s\{$/u)
372 0 0 if ($ln =~ /^\s{8}(\S+)\s\{$/u)
378 0 0 if ($ln =~ /^\s{4}\}$/u)
384 0 0 if ($ln =~ /^\s{8}\}$/u)
390 0 0 if ($ln =~ /^\s{4}(\S+)\s\{\s\}$/u)
396 0 0 if ($ln =~ /^\s{4}(\S+)\s\{(.*)\}$/u)
403 0 0 if ($attr1)
406 0 0 if ($ln =~ /^\s{8}(\S+)\s\{\s\}$/u)
412 0 0 if ($ln =~ /^\s{8}(\S+)\s\{(.*)\}$/u)
420 0 0 if ($ln =~ /^\s{8}(\S+)\s(.*)$/u)
426 0 0 if ($ln =~ /^\s{8}(\S.+)$/u)
427 0 0 if (ref $parsed->{$obj}{$key}{$attr1} eq 'HASH') { }
438 0 0 if ($attr2)
441 0 0 if ($ln =~ /^\s{12}(\S+)\s\{\s\}$/u)
447 0 0 if ($ln =~ /^\s{12}(\S+)\s\{(.*)\}$/u)
455 0 0 if ($ln =~ /^\s{12}(\S+)\s(.*)\s?$/u)
462 0 0 if ($ln =~ /^\s{12}(.*)\s?$/u)
463 0 0 if (ref $parsed->{$obj}{$key}{$attr1} eq 'HASH') { }
475 0 0 if ($ln =~ /^\s{4}(\S+)\s(.*)$/u) { }