Branch Coverage

blib/lib/Flexnet/lmutil.pm
Criterion Covered Total %
branch 28 52 53.8


line true false branch
221 0 0 unless (defined $args{'testfile'} or -x $lmutil)
237 1 0 if (@args == 1)
246 0 1 if (defined $self->{'lm_license_path'})
250 1 0 if (defined $args{'all'}) { }
0 0 elsif (defined $args{'feature'}) { }
0 0 elsif (defined $args{'daemon'}) { }
260 1 0 if (defined $self->{'testfile'}) { }
261 0 1 unless open $fh, $self->{'testfile'}
263 0 0 if $self->{'verbose'}
268 0 98 if $self->{'verbose'}
271 1 97 if (my($server, $server_status) = /^\s*([\w.-]+): license server (\S+)/) { }
3 94 elsif (my($vendor, $state) = /^\s*(\S+?): (.*)/) { }
11 83 elsif (/^Users of (\S+):\s*\(Total of (\d+) licenses? issued;\s*Total of (\d+) lic/) { }
36 47 elsif (my($clientinfo, $version, $serverhost, $port, $handle, $rest) = m[^\s+(.+) \(v([\d\.]+)\) \(([^/]+)/(\d+) (\d+)\), start (.*)]) { }
4 43 elsif (my($reservations, $type, $group) = /^\s+(\d+)\s+RESERVATIONs? for ([\w_]+) ([\w_-]+) /) { }
273 1 0 if ($server_status eq 'UP') { }
282 3 0 if ($state =~ /^UP v([\d.]+)/) { }
307 4 32 if (@parts == 2) { }
28 4 elsif (@parts == 3) { }
315 1 3 if ($parts[$max - 2] eq $parts[$max - 1]) { }
323 3 0 if ($parts[$i] =~ m[^[:/]])
333 0 3 unless (defined $user)
342 1 35 if ($rest =~ /^([^,]+), (\d+) license/) { }
378 0 0 unless $args{$arg}
382 0 0 if (defined $self->{'lm_license_path'})
387 0 0 if $self->{'verbose'}