| line |
true |
false |
branch |
|
102
|
0 |
23 |
if ($key =~ /^_(.*)/) |
|
155
|
1 |
5 |
if @_ |
|
156
|
4 |
2 |
unless defined $self->{'username'} |
|
157
|
0 |
6 |
unless defined $self->{'username'} |
|
180
|
0 |
4 |
if @_ |
|
181
|
4 |
0 |
unless defined $self->{'password'} |
|
182
|
0 |
4 |
unless defined $self->{'password'} |
|
205
|
1 |
8 |
if @_ |
|
206
|
4 |
5 |
unless defined $self->{'host'} |
|
229
|
1 |
8 |
if @_ |
|
230
|
4 |
5 |
unless defined $self->{'protocol'} |
|
253
|
1 |
8 |
if @_ |
|
254
|
4 |
5 |
unless defined $self->{'port'} |
|
277
|
1 |
9 |
if @_ |
|
278
|
4 |
6 |
unless defined $self->{'script_name'} |
|
303
|
1 |
5 |
if @_ |
|
304
|
3 |
3 |
unless defined $self->{'url'} |
|
305
|
1 |
5 |
unless (defined $self->{'url'}) |
|
330
|
1 |
0 |
unless $self->{'ua'} |
|
344
|
5 |
53 |
unless (exists $self->{'cfg'}) |
|
346
|
5 |
0 |
if ($file and -r $file) { } |
|
373
|
0 |
9 |
if (@_) |
|
375
|
0 |
0 |
unless -r $self->{'cfg_file'} |
|
377
|
5 |
4 |
unless (defined $self->{'cfg_file'}) |
|
378
|
0 |
5 |
unless ref $self->cfg_path eq 'ARRAY' |
|
382
|
5 |
0 |
if -r $self->{'cfg_file'} |
|
410
|
0 |
18 |
if @_ |
|
411
|
5 |
13 |
unless (ref $self->{'path'} eq 'ARRAY') |
|
413
|
0 |
5 |
if ($^O eq 'MSWin32') { } |
|
415
|
0 |
0 |
unless $@ |
|
418
|
0 |
5 |
unless $@ |
|
443
|
0 |
30 |
if @_ |
|
444
|
4 |
26 |
unless ($self->{'cfg_section'}) |
|
461
|
0 |
27 |
unless my $property = shift() |
|
464
|
26 |
1 |
if ($cfg) { } |