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'} |