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) { } |