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 |