| line |
true |
false |
branch |
|
87
|
0 |
0 |
if ($self->{'on_login_f'}) |
|
92
|
0 |
0 |
if $on_closed |
|
151
|
10 |
23 |
if exists $args{$_} |
|
154
|
1 |
10 |
if (exists $args{'nick'}) |
|
223
|
6 |
2 |
if $self->read_handle |
|
237
|
0 |
0 |
if ($args{'on_resolve_error'}) { } |
|
|
0 |
0 |
elsif ($on_error) { } |
|
246
|
0 |
0 |
if ($args{'on_connect_error'}) { } |
|
|
0 |
0 |
elsif ($on_error) { } |
|
320
|
0 |
6 |
unless my $nick = delete $args{'nick'} || $self->{'nick'} |
|
321
|
0 |
6 |
unless my $user = delete $args{'user'} || $self->{'user'} |
|
325
|
5 |
1 |
unless (defined $self->{'nick'}) |
|
330
|
0 |
6 |
unless not defined $on_login or ref $on_login eq "CODE" |
|
338
|
4 |
2 |
if $self->{'use_caps'} |
|
344
|
2 |
4 |
if ($self->{'use_caps'} and &any(sub {
$_ eq "sasl";
}
, @{$$self{"use_caps"};})) |
|
350
|
1 |
5 |
if ($use_sasl) { } |
|
368
|
1 |
4 |
if defined $pass |
|
375
|
1 |
5 |
if $on_login |
|
395
|
0 |
3 |
if (not $self->is_connected) { } |
|
422
|
2 |
1 |
if (@request) { } |
|
525
|
1 |
0 |
if ($hints->{'prefix_is_me'}) |
|
541
|
6 |
0 |
if ($self->{'on_login_f'} and @{$self->{'on_login_f'};}) |
|
561
|
1 |
0 |
if ($data eq "+") |
|
568
|
1 |
0 |
if $f |