| line |
true |
false |
branch |
|
80
|
0 |
0 |
if $weakself |
|
149
|
0 |
0 |
if exists $self->{'channels'}{$channame_folded} |
|
191
|
0 |
0 |
unless (defined $nick and length $nick) |
|
199
|
0 |
0 |
if exists $self->{'users'}{$nick_folded} |
|
240
|
0 |
0 |
if ($type eq 'channel') { } |
|
|
0 |
0 |
elsif ($type eq 'user') { } |
|
259
|
0 |
0 |
if ($type eq 'channel') { } |
|
|
0 |
0 |
elsif ($type eq 'user') { } |
|
280
|
0 |
0 |
if ($args{'SSL'} and not eval {
do {
require IO::Async::SSL
}
}) |
|
284
|
0 |
0 |
unless $irc->loop |
|
312
|
0 |
0 |
$args{'SSL'} ? : |
|
343
|
0 |
0 |
if $colcode =~ /^#[0-9a-f]{6}/i |
|
344
|
0 |
0 |
if $colcode =~ /^#([0-9a-f])([0-9a-f])([0-9a-f])/i |
|
346
|
0 |
0 |
if $colcode =~ /^(\d\d?)/ and defined $irc_colour_map[$1] |
|
389
|
0 |
0 |
if ($text =~ s/^([\x00-\x1f])//) { } |
|
392
|
0 |
0 |
if ($ctrl eq 'B') { } |
|
|
0 |
0 |
elsif ($ctrl eq 'U' or $ctrl eq '_') { } |
|
|
0 |
0 |
elsif ($ctrl eq 'R' or $ctrl eq ']') { } |
|
|
0 |
0 |
elsif ($ctrl eq 'V') { } |
|
|
0 |
0 |
elsif ($ctrl eq 'O') { } |
|
|
0 |
0 |
elsif ($ctrl eq 'C') { } |
|
|
0 |
0 |
elsif ($ctrl eq 'D') { } |
|
393
|
0 |
0 |
$format{'b'} ? : |
|
396
|
0 |
0 |
$format{'u'} ? : |
|
399
|
0 |
0 |
$format{'i'} ? : |
|
402
|
0 |
0 |
$format{'rv'} ? : |
|
410
|
0 |
0 |
if ($text =~ s/^($colourre),($colourre)//) { } |
|
|
0 |
0 |
elsif ($text =~ s/^($colourre)//) { } |
|
411
|
0 |
0 |
if $self->{'use_mirc_colours'} |
|
412
|
0 |
0 |
if $self->{'use_mirc_colours'} |
|
415
|
0 |
0 |
if $self->{'use_mirc_colours'} |
|
423
|
0 |
0 |
if ($text =~ s/^b//) { } |
|
|
0 |
0 |
elsif ($text =~ s/^c//) { } |
|
|
0 |
0 |
elsif ($text =~ s/^d//) { } |
|
|
0 |
0 |
elsif ($text =~ s/^g//) { } |
|
424
|
0 |
0 |
$format{'u'} ? : |
|
427
|
0 |
0 |
$format{'b'} ? : |
|
430
|
0 |
0 |
$format{'i'} ? : |
|
438
|
0 |
0 |
if ($fg > 0) |
|
441
|
0 |
0 |
if ($bg > 0) |
|
458
|
0 |
0 |
if ($piece =~ s[^(.*?)(?
|
|
461
|
0 |
0 |
if length $pre |
|
538
|
0 |
0 |
if ($spec =~ /^"/) { } |
|
|
0 |
0 |
elsif ($spec =~ m[^/]) { } |
|
550
|
0 |
0 |
if $spec =~ s/^i// |
|
552
|
0 |
0 |
if $iflag |
|
562
|
0 |
0 |
if ($type eq 'literal') { } |
|
|
0 |
0 |
elsif ($type eq 're') { } |
|
568
|
0 |
0 |
if $pattern =~ /^\(\?-xism:(.*)\)$/ |
|
569
|
0 |
0 |
if $pattern =~ /^\(\?i-xsm:(.*)\)$/ |
|
583
|
0 |
0 |
if ($type eq 'literal') { } |
|
|
0 |
0 |
elsif ($type eq 're') { } |
|
600
|
0 |
0 |
if (defined $spec and $spec =~ /^"/) |
|
615
|
0 |
0 |
if defined $name |
|
624
|
0 |
0 |
unless ($event->{'target_type'} || '') eq 'channel' |
|
626
|
0 |
0 |
unless defined $name |
|
692
|
0 |
0 |
if ($spec eq 'self') { } |
|
|
0 |
0 |
elsif ($spec eq 'server') { } |
|
754
|
0 |
0 |
if (defined $hints->{'target_name'}) { } |
|
|
0 |
0 |
elsif (grep {$command eq $_;} 'NICK', 'QUIT') { } |
|
|
0 |
0 |
elsif ($self->can("on_message_$command")) { } |
|
757
|
0 |
0 |
if ($hints->{'target_type'} eq 'channel') { } |
|
|
0 |
0 |
elsif ($hints->{'target_is_me'} and defined $hints->{'prefix_name'} and not $hints->{'prefix_is_me'}) { } |
|
|
0 |
0 |
elsif ($hints->{'target_type'} eq 'user') { } |
|
771
|
0 |
0 |
if ($target) |
|
772
|
0 |
0 |
if $target->on_message($command, $message, $hints) |
|
781
|
0 |
0 |
if $self->can($method) and $self->$method($message, $hints) |
|
784
|
0 |
0 |
if $target->$method($message, $hints) |
|
789
|
0 |
0 |
if (my $userobj = $self->get_user_if_exists($hints->{'prefix_nick'})) |
|
790
|
0 |
0 |
if $userobj->$method($message, $hints) |
|
793
|
0 |
0 |
if $handled |
|
799
|
0 |
0 |
if $handled |
|
802
|
0 |
0 |
if (not $hints->{'handled'} || $hints->{'synthesized'}) |
|
817
|
0 |
0 |
if ($hints->{'prefix_is_me'}) |
|
868
|
0 |
0 |
unless my $f = delete $self->{'whois_gate_f'}{$hints->{'target_name_folded'}} |
|
889
|
0 |
0 |
unless ($self->{'no_reconnect_on_close'}) |
|
892
|
0 |
0 |
unless $self->{'reconnect_timer'}->is_running |
|
941
|
0 |
0 |
if ($lag > 1) { } |
|
965
|
0 |
0 |
unless (@$pending) |
|
969
|
0 |
0 |
defined $_->[1] ? : |
|
971
|
0 |
0 |
length $keys ? : |
|
978
|
0 |
0 |
if (defined $key) { } |
|
992
|
0 |
0 |
unless $_ |
|
995
|
0 |
0 |
$_ ? : |
|
998
|
0 |
0 |
unless $_ |
|
1001
|
0 |
0 |
$_ ? : |
|
1015
|
0 |
0 |
if (defined $newnick) |
|
1038
|
0 |
0 |
if (not defined $host) { } |
|
1039
|
0 |
0 |
unless (@{$self->{'servers'};}) |
|
1051
|
0 |
0 |
unless $s |
|
1103
|
0 |
0 |
if ($irc->read_handle) { } |
|
1104
|
0 |
0 |
defined $message ? : |
|
1111
|
0 |
0 |
if $timer->is_running |
|
1153
|
0 |
0 |
unless my $chanobj = $self->get_channel_if_exists($channel) |
|
1195
|
0 |
0 |
if (my $targetobj = $self->get_target_if_exists($target)) { } |
|
1214
|
0 |
0 |
if (my $targetobj = $self->get_target_if_exists($target)) { } |
|
1249
|
0 |
0 |
unless length $message |
|
1292
|
0 |
0 |
ref $val eq 'ARRAY' ? : |
|
1312
|
0 |
0 |
$_ ? : |
|
1315
|
0 |
0 |
$_ ? : |
|
1332
|
0 |
0 |
unless my $chan = $self->get_channel_if_exists($name) |
|
1346
|
0 |
0 |
unless my $chanobj = $self->get_channel_if_exists($name) |
|
1349
|
0 |
0 |
if exists $def->{$_} |
|
1363
|
0 |
0 |
if exists $def->{$_} |
|
1372
|
0 |
0 |
unless my $chanobj = $self->get_channel_if_exists($name) |
|
1374
|
0 |
0 |
if $chanobj->{'state'} == 2 |
|
1415
|
0 |
0 |
if exists $items->{$name} and $items->{$name}->get_prop_real |
|
1418
|
0 |
0 |
if $create |
|
1473
|
0 |
0 |
$_[1] ? : |