| line |
true |
false |
branch |
|
113
|
0 |
0 |
unless $self->{'Parsed'}{'gtm pool'}{$pool}{'members'} |
|
115
|
0 |
0 |
if (ref $self->{'Parsed'}{'gtm pool'}{$pool}{'members'} eq 'HASH') { } |
|
134
|
0 |
0 |
unless $self->{'Parsed'}{'gtm wideip'} |
|
143
|
0 |
0 |
if defined $detail->{'members'} |
|
149
|
0 |
0 |
if $detail |
|
151
|
0 |
0 |
if $detail |
|
157
|
0 |
0 |
if ($monitor and $monitor =~ /http|tcp|udp|bigip|gateway_icmp/u) { } |
|
|
0 |
0 |
elsif ($monitor and $monitor =~ /\S+/u) { } |
|
162
|
0 |
0 |
if $mon_detail |
|
180
|
0 |
0 |
unless $self->{'Parsed'}{'gtm wideip'} |
|
188
|
0 |
0 |
if defined $detail->{'members'} |
|
194
|
0 |
0 |
if $detail |
|
196
|
0 |
0 |
if $detail |
|
202
|
0 |
0 |
if ($monitor and $monitor =~ /http|tcp|udp|bigip|gateway_icmp/u) { } |
|
|
0 |
0 |
elsif ($monitor and $monitor =~ /\S+/u) { } |
|
207
|
0 |
0 |
if $mon_detail |
|
222
|
0 |
0 |
unless $arg->{'type'} and $arg->{'key'} |
|
231
|
0 |
0 |
unless $self->{'Parsed'}{$obj}{$key} |
|
234
|
0 |
0 |
unless $self->{'Parsed'}{$obj}{$key}{$attr} |
|
246
|
0 |
0 |
unless $self->{'Modify'} |
|
253
|
0 |
0 |
if ($self->{'Modify'}{$obj}{$key}) { } |
|
256
|
0 |
0 |
unless $self->{'Parsed'}{$obj}{$key}{$attr} |
|
259
|
0 |
0 |
if (ref $self->{'Modify'}{$obj}{$key}{$attr} eq 'ARRAY') { } |
|
262
|
0 |
0 |
if (@{$self->{'Modify'}{$obj}{$key}{$attr};} > 1) { } |
|
272
|
0 |
0 |
if ($self->{'Parsed'}{$obj}{$key}{'_xtra'}{$val}) |
|
318
|
0 |
0 |
unless defined $var |
|
329
|
0 |
0 |
if ($self->{'Parsed'}{$obj}) { } |
|
342
|
0 |
0 |
if /auth/u |
|
343
|
0 |
0 |
if /gtm monitor/u |
|
346
|
0 |
0 |
if /gtm node/u |
|
347
|
0 |
0 |
if /gtm pool/u |
|
348
|
0 |
0 |
if /partition/u |
|
349
|
0 |
0 |
if /net self/u |
|
350
|
0 |
0 |
if /auth user/u |
|
352
|
0 |
0 |
if /gtm server/u |
|
366
|
0 |
0 |
unless -e $self->{'ConfigFile'} |
|
378
|
0 |
0 |
if ($ln =~ /^(auth user|patition|cli)\s(.*)\s\{(\s\})?$/u) { } |
|
|
0 |
0 |
elsif ($ln =~ /^(gtm wideip|gtm pool|gtm server|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 =~ /^((gtm monitor)\s(http|tcp|udp|bigip|gateway_icmp))\s(\S+)\s\{(\s\})?$/u) { } |
|
|
0 |
0 |
elsif ($ln =~ /^(sys)\s(snmp|sshd|ntp|syslog|state-mirroring)\s\{(\s\})?$/u) { } |
|
|
0 |
0 |
elsif ($ln =~ /^\}$/u) { } |
|
379
|
0 |
0 |
if $3 |
|
389
|
0 |
0 |
if $3 |
|
399
|
0 |
0 |
if $3 |
|
406
|
0 |
0 |
if $3 |
|
416
|
0 |
0 |
if $5 |
|
419
|
0 |
0 |
if $obj and $key |
|
426
|
0 |
0 |
if $3 |
|
436
|
0 |
0 |
if ($obj and $key) |
|
440
|
0 |
0 |
if ($ln =~ /^\s{4}(\S+|\".*\")\s\{$/u) |
|
446
|
0 |
0 |
if ($ln =~ /^\s{8}(\S+|\".*\")\s\{$/u) |
|
452
|
0 |
0 |
if ($ln =~ /^\s{12}(\S+|\".*\")\s\{$/u) |
|
458
|
0 |
0 |
if ($ln =~ /^\s{4}\}$/u) |
|
464
|
0 |
0 |
if ($ln =~ /^\s{8}\}$/u) |
|
470
|
0 |
0 |
if ($ln =~ /^\s{12}\}$/u) |
|
476
|
0 |
0 |
if ($ln =~ /^\s{4}(\S+)\s\{\s\}$/u) |
|
482
|
0 |
0 |
if ($ln =~ /^\s{4}(\S+)\s\{(.*)\}$/u) |
|
489
|
0 |
0 |
if (defined $attr1 and $attr1) |
|
492
|
0 |
0 |
if ($ln =~ /^\s{8}(\S+)\s\{\s\}$/u) |
|
498
|
0 |
0 |
if ($ln =~ /^\s{8}(\S+)\s\{(.*)\}$/u) |
|
506
|
0 |
0 |
if ($ln =~ /^\s{8}(\S+)\s(.*)$/u) |
|
512
|
0 |
0 |
if ($ln =~ /^\s{8}(\S+)$/u) |
|
513
|
0 |
0 |
if (ref $parsed->{$obj}{$key}{$attr1} eq 'HASH') { } |
|
524
|
0 |
0 |
if (defined $attr2 and ($attr1 and $attr2)) |
|
527
|
0 |
0 |
if ($ln =~ /^\s{12}(\S+)\s\{\s\}$/u) |
|
533
|
0 |
0 |
if ($ln =~ /^\s{12}(\S+)\s\{(.*)\}$/u) |
|
541
|
0 |
0 |
if ($ln =~ /^\s{12}(\S+)\s(.*)\s?$/u) |
|
547
|
0 |
0 |
if ($ln =~ /^\s{12}(.*)\s?$/u) |
|
548
|
0 |
0 |
if (ref $parsed->{$obj}{$key}{$attr1}{$attr2} eq 'HASH') { } |
|
561
|
0 |
0 |
if (defined $attr3 and ($attr1 and $attr2 and $attr3)) |
|
564
|
0 |
0 |
if ($ln =~ /^\s{16}(\S+)\s\{\s\}$/u) |
|
570
|
0 |
0 |
if ($ln =~ /^\s{16}(\S+)\s\{(.*)\}$/u) |
|
578
|
0 |
0 |
if ($ln =~ /^\s{16}(\S+)\s(.*)\s?$/u) |
|
584
|
0 |
0 |
if ($ln =~ /^\s{16}(.*)\s?$/u) |
|
585
|
0 |
0 |
if (ref $parsed->{$obj}{$key}{$attr1}{$attr2}{$attr3} eq 'HASH') { } |
|
601
|
0 |
0 |
if ($ln =~ /^\s{4}(\S+)\s(.*)$/u) |