| line |
true |
false |
branch |
|
82
|
0 |
0 |
if $weakself |
|
150
|
0 |
0 |
if exists $self->{'channels'}{$channame_folded} |
|
192
|
0 |
0 |
unless (defined $nick and length $nick) |
|
200
|
0 |
0 |
if exists $self->{'users'}{$nick_folded} |
|
241
|
0 |
0 |
if ($type eq 'channel') { } |
|
|
0 |
0 |
elsif ($type eq 'user') { } |
|
260
|
0 |
0 |
if ($type eq 'channel') { } |
|
|
0 |
0 |
elsif ($type eq 'user') { } |
|
281
|
0 |
0 |
if ($args{'SSL'} and not eval {
do {
require IO::Async::SSL
}
}) |
|
285
|
0 |
0 |
unless $irc->loop |
|
313
|
0 |
0 |
$args{'SSL'} ? : |
|
344
|
0 |
0 |
if $colcode =~ /^#[0-9a-f]{6}/i |
|
345
|
0 |
0 |
if $colcode =~ /^#([0-9a-f])([0-9a-f])([0-9a-f])/i |
|
347
|
0 |
0 |
if $colcode =~ /^(\d\d?)/ and defined $irc_colour_map[$1] |
|
390
|
0 |
0 |
if ($text =~ s/^([\x00-\x1f])//) { } |
|
393
|
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') { } |
|
394
|
0 |
0 |
$format{'b'} ? : |
|
397
|
0 |
0 |
$format{'u'} ? : |
|
400
|
0 |
0 |
$format{'i'} ? : |
|
403
|
0 |
0 |
$format{'rv'} ? : |
|
411
|
0 |
0 |
if ($text =~ s/^($colourre),($colourre)//) { } |
|
|
0 |
0 |
elsif ($text =~ s/^($colourre)//) { } |
|
412
|
0 |
0 |
if $self->{'use_mirc_colours'} |
|
413
|
0 |
0 |
if $self->{'use_mirc_colours'} |
|
416
|
0 |
0 |
if $self->{'use_mirc_colours'} |
|
424
|
0 |
0 |
if ($text =~ s/^b//) { } |
|
|
0 |
0 |
elsif ($text =~ s/^c//) { } |
|
|
0 |
0 |
elsif ($text =~ s/^d//) { } |
|
|
0 |
0 |
elsif ($text =~ s/^g//) { } |
|
425
|
0 |
0 |
$format{'u'} ? : |
|
428
|
0 |
0 |
$format{'b'} ? : |
|
431
|
0 |
0 |
$format{'i'} ? : |
|
439
|
0 |
0 |
if ($fg > 0) |
|
442
|
0 |
0 |
if ($bg > 0) |
|
459
|
0 |
0 |
if ($piece =~ s[^(.*?)(?
|
|
462
|
0 |
0 |
if length $pre |
|
539
|
0 |
0 |
if ($spec =~ /^"/) { } |
|
|
0 |
0 |
elsif ($spec =~ m[^/]) { } |
|
551
|
0 |
0 |
if $spec =~ s/^i// |
|
553
|
0 |
0 |
if $iflag |
|
563
|
0 |
0 |
if ($type eq 'literal') { } |
|
|
0 |
0 |
elsif ($type eq 're') { } |
|
569
|
0 |
0 |
if $pattern =~ /^\(\?-xism:(.*)\)$/ |
|
570
|
0 |
0 |
if $pattern =~ /^\(\?i-xsm:(.*)\)$/ |
|
584
|
0 |
0 |
if ($type eq 'literal') { } |
|
|
0 |
0 |
elsif ($type eq 're') { } |
|
601
|
0 |
0 |
if (defined $spec and $spec =~ /^"/) |
|
616
|
0 |
0 |
if defined $name |
|
625
|
0 |
0 |
unless ($event->{'target_type'} || '') eq 'channel' |
|
627
|
0 |
0 |
unless defined $name |
|
662
|
0 |
0 |
if ($spec eq 'self') { } |
|
|
0 |
0 |
elsif ($spec eq 'server') { } |
|
724
|
0 |
0 |
if (defined $hints->{'target_name'}) { } |
|
|
0 |
0 |
elsif (grep {$command eq $_;} 'NICK', 'QUIT') { } |
|
|
0 |
0 |
elsif ($self->can("on_message_$command")) { } |
|
727
|
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') { } |
|
741
|
0 |
0 |
if ($target) |
|
742
|
0 |
0 |
if $target->on_message($command, $message, $hints) |
|
751
|
0 |
0 |
if $self->can($method) and $self->$method($message, $hints) |
|
754
|
0 |
0 |
if $target->$method($message, $hints) |
|
759
|
0 |
0 |
if (my $userobj = $self->get_user_if_exists($hints->{'prefix_nick'})) |
|
760
|
0 |
0 |
if $userobj->$method($message, $hints) |
|
763
|
0 |
0 |
if $handled |
|
769
|
0 |
0 |
if $handled |
|
772
|
0 |
0 |
if (not $hints->{'handled'} || $hints->{'synthesized'}) |
|
787
|
0 |
0 |
if ($hints->{'prefix_is_me'}) |
|
838
|
0 |
0 |
unless my $f = delete $self->{'whois_gate_f'}{$hints->{'target_name_folded'}} |
|
859
|
0 |
0 |
unless ($self->{'no_reconnect_on_close'}) |
|
862
|
0 |
0 |
unless $self->{'reconnect_timer'}->is_running |
|
911
|
0 |
0 |
if ($lag > 1) { } |
|
935
|
0 |
0 |
unless (@$pending) |
|
939
|
0 |
0 |
defined $_->[1] ? : |
|
941
|
0 |
0 |
length $keys ? : |
|
948
|
0 |
0 |
if (defined $key) { } |
|
962
|
0 |
0 |
unless $_ |
|
965
|
0 |
0 |
$_ ? : |
|
968
|
0 |
0 |
unless $_ |
|
971
|
0 |
0 |
$_ ? : |
|
985
|
0 |
0 |
if (defined $newnick) |
|
1008
|
0 |
0 |
if (not defined $host) { } |
|
1009
|
0 |
0 |
unless (@{$self->{'servers'};}) |
|
1021
|
0 |
0 |
unless $s |
|
1073
|
0 |
0 |
if ($irc->read_handle) { } |
|
1074
|
0 |
0 |
defined $message ? : |
|
1081
|
0 |
0 |
if $timer->is_running |
|
1123
|
0 |
0 |
unless my $chanobj = $self->get_channel_if_exists($channel) |
|
1165
|
0 |
0 |
if (my $targetobj = $self->get_target_if_exists($target)) { } |
|
1184
|
0 |
0 |
if (my $targetobj = $self->get_target_if_exists($target)) { } |
|
1219
|
0 |
0 |
unless length $message |
|
1262
|
0 |
0 |
ref $val eq 'ARRAY' ? : |
|
1281
|
0 |
0 |
$_ ? : |
|
1298
|
0 |
0 |
unless my $chan = $self->get_channel_if_exists($name) |
|
1311
|
0 |
0 |
unless my $chanobj = $self->get_channel_if_exists($name) |
|
1314
|
0 |
0 |
if exists $def->{$_} |
|
1328
|
0 |
0 |
if exists $def->{$_} |
|
1337
|
0 |
0 |
unless my $chanobj = $self->get_channel_if_exists($name) |
|
1378
|
0 |
0 |
if exists $items->{$name} and $items->{$name}->get_prop_real |
|
1381
|
0 |
0 |
if $create |
|
1436
|
0 |
0 |
$_[1] ? : |