| line |
true |
false |
branch |
|
103
|
0 |
23 |
if ($key =~ /^_(.*)/) |
|
156
|
1 |
5 |
if @_ |
|
157
|
4 |
2 |
unless defined $self->{'username'} |
|
158
|
0 |
6 |
unless defined $self->{'username'} |
|
181
|
0 |
4 |
if @_ |
|
182
|
4 |
0 |
unless defined $self->{'password'} |
|
183
|
0 |
4 |
unless defined $self->{'password'} |
|
206
|
1 |
8 |
if @_ |
|
207
|
4 |
5 |
unless defined $self->{'host'} |
|
230
|
1 |
8 |
if @_ |
|
231
|
4 |
5 |
unless defined $self->{'protocol'} |
|
254
|
1 |
8 |
if @_ |
|
255
|
4 |
5 |
unless defined $self->{'port'} |
|
278
|
1 |
9 |
if @_ |
|
279
|
4 |
6 |
unless defined $self->{'script_name'} |
|
304
|
1 |
5 |
if @_ |
|
305
|
3 |
3 |
unless defined $self->{'url'} |
|
306
|
1 |
5 |
unless (defined $self->{'url'}) |
|
330
|
1 |
0 |
unless ($self->{'uat'}) |
|
347
|
1 |
0 |
unless ($self->{'ua'}) |
|
351
|
0 |
1 |
if $error |
|
362
|
0 |
2 |
if @_ |
|
364
|
1 |
1 |
unless defined $self->{'_http_agent'} |
|
378
|
5 |
53 |
unless (exists $self->{'cfg'}) |
|
380
|
5 |
0 |
if ($file and -r $file) { } |
|
407
|
0 |
9 |
if (@_) |
|
409
|
0 |
0 |
unless -r $self->{'cfg_file'} |
|
411
|
5 |
4 |
unless (defined $self->{'cfg_file'}) |
|
412
|
0 |
5 |
unless ref $self->cfg_path eq 'ARRAY' |
|
416
|
5 |
0 |
if -r $self->{'cfg_file'} |
|
444
|
0 |
18 |
if @_ |
|
445
|
5 |
13 |
unless (ref $self->{'path'} eq 'ARRAY') |
|
447
|
0 |
5 |
if ($^O eq 'MSWin32') { } |
|
449
|
0 |
0 |
unless $@ |
|
452
|
0 |
5 |
unless $@ |
|
477
|
0 |
30 |
if @_ |
|
478
|
4 |
26 |
unless ($self->{'cfg_section'}) |
|
495
|
0 |
27 |
unless my $property = shift() |
|
498
|
26 |
1 |
if ($cfg) { } |