| line |
true |
false |
branch |
|
57
|
0 |
1 |
unless ($alias and $hash) |
|
61
|
0 |
1 |
unless (ref $hash eq 'HASH') |
|
65
|
1 |
0 |
unless defined $hash->{'EventMode'} and $hash->{'EventMode'} == 0 |
|
67
|
1 |
0 |
unless defined $hash->{'Reconnect'} and $hash->{'Reconnect'} == 1 |
|
69
|
1 |
0 |
unless defined $hash->{'Debug'} and $hash->{'Debug'} == 1 |
|
71
|
1 |
0 |
if ($hash->{'EventMode'} == 1) { } |
|
155
|
0 |
1 |
unless ($hash->{'ServerNumeric'} and $hash->{'ServerName'} and $hash->{'RemoteServer'} and $hash->{'Password'} and $hash->{'ServerPort'}) |
|
160
|
1 |
0 |
if ($hash->{'ServerNumeric'} =~ /^[0-9]+?$/) |
|
161
|
0 |
1 |
if ($hash->{'ServerNumeric'} < 0 or $hash->{'ServerNumeric'} > 4095) { } |
|
168
|
0 |
1 |
unless ($hash->{'ServerNumeric'} =~ /^[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789\[\]]{2}$/) |
|
172
|
0 |
1 |
unless defined $hash->{'ServerDesc'} |
|
173
|
1 |
0 |
unless defined $hash->{'Version'} |
|
177
|
1 |
0 |
unless defined $hash->{'PingFreq'} |
|
208
|
0 |
2 |
unless @events |
|
213
|
24 |
0 |
unless /^_/ |
|
216
|
1 |
23 |
unless ($heap->{'sessions'}{$sender}{'refcnt'}++ or $session == $sender) |
|
226
|
0 |
1 |
unless @events |
|
230
|
1 |
0 |
if (--$heap->{'sessions'}{$sender}{'refcnt'} <= 0) |
|
232
|
1 |
0 |
unless ($session == $sender) |
|
245
|
0 |
1 |
if @options |
|
250
|
0 |
1 |
if $heap->{'debug'} |
|
260
|
0 |
1 |
if ($heap->{'connected'}) |
|
272
|
0 |
0 |
if ($heap->{'socket'}) |
|
283
|
0 |
0 |
if ($heap->{'socket'}) |
|
295
|
0 |
0 |
$heap->{'localaddr'} ? : |
|
333
|
0 |
0 |
if ($heap->{'socket'}) { } |
|
368
|
0 |
2 |
Deparse error: Can't locate object method "unctrl" via package "" (perhaps you forgot to load ""?) at /usr/local/lib/perl5/5.24.1/B/Deparse.pm line 5050.
? : |
|
391
|
2 |
0 |
if defined $sessions{$session} |
|
393
|
2 |
2 |
unless $_ eq $session |
|
401
|
1 |
0 |
if ($args) { } |
|
403
|
1 |
0 |
if (ref $args eq 'HASH') { } |
|
411
|
1 |
0 |
if exists $arg{'NickName'} |
|
412
|
0 |
1 |
if exists $arg{'UserName'} |
|
413
|
0 |
1 |
if exists $arg{'HostName'} |
|
414
|
0 |
1 |
if exists $arg{'AuthName'} |
|
415
|
1 |
0 |
if exists $arg{'Umode'} |
|
416
|
0 |
1 |
if exists $arg{'Description'} |
|
417
|
0 |
1 |
if exists $arg{'LocalAddr'} |
|
419
|
0 |
1 |
unless (defined $nickname) |
|
424
|
1 |
0 |
if (not $heap->{'State'}->nick_numeric($nickname)) { } |
|
432
|
1 |
0 |
unless defined $username |
|
433
|
0 |
1 |
if defined $username |
|
434
|
1 |
0 |
unless defined $hostname |
|
435
|
0 |
1 |
if defined $hostname |
|
436
|
0 |
1 |
unless defined $umode |
|
437
|
1 |
0 |
unless $umode =~ /^\+/ or not defined $umode |
|
438
|
0 |
1 |
unless not defined $authname or $umode =~ /r/ |
|
439
|
1 |
0 |
unless defined $authname or not $umode =~ /r/ |
|
440
|
1 |
0 |
if defined $authname and $umode =~ /r/ |
|
441
|
1 |
0 |
unless defined $description |
|
442
|
1 |
0 |
unless defined $localaddr |
|
470
|
0 |
0 |
if ($first eq 'u') |
|
522
|
0 |
0 |
if ($who eq $heap->{'servernum'}) |
|
532
|
0 |
0 |
if ($heap->{'Reconnect'}) |
|
540
|
0 |
0 |
if ($heap->{'Reconnect'}) |
|
556
|
0 |
0 |
unless $arg eq $heap->{'servernum'} |
|
564
|
0 |
0 |
if ($arg eq $heap->{'serverlink'}) |
|
587
|
0 |
0 |
if ($heap->{'socket'}) |
|
604
|
0 |
0 |
if (defined $heap->{'his_servername'} and defined $heap->{'his_serverinfo'} and not $heap->{'State'}->is_operator($who)) { } |
|
609
|
0 |
0 |
if $info[4] =~ /o/ |
|
610
|
0 |
0 |
if defined $info[5] |
|
621
|
1 |
0 |
if ($who =~ /^.{2}$/) { } |
|
625
|
1 |
0 |
if ($args[5] =~ /^\+([a-zA-Z]+)/) |
|
627
|
1 |
0 |
if ($args[5] =~ /r/) |
|
687
|
0 |
0 |
if (not $what =~ /^#/) { } |
|
691
|
0 |
0 |
if ($heap->{'eventmode'}) |
|
693
|
0 |
0 |
if defined $args |
|
703
|
0 |
0 |
if (not $what =~ /^#/) { } |
|
708
|
0 |
0 |
if defined $args |
|
728
|
0 |
0 |
if defined $args |
|
738
|
0 |
0 |
if defined $args |
|
747
|
0 |
0 |
unless (defined $numeric and defined $to and defined $message) |
|
755
|
0 |
0 |
$state eq 'ctcpreply' ? : |
|
765
|
0 |
0 |
unless (defined $numeric and defined $chan and defined $nick) |
|
769
|
0 |
0 |
if defined $message |
|
777
|
0 |
0 |
if (defined $arg) |
|
787
|
0 |
0 |
unless (defined $numeric) |
|
791
|
0 |
0 |
if (defined $arg) |
|
803
|
0 |
0 |
if (defined $arg) |
|
804
|
0 |
0 |
if $arg =~ /\s/ |
|
815
|
0 |
0 |
unless (defined $numeric) |
|
820
|
0 |
0 |
if (defined $arg) |
|
821
|
0 |
0 |
if $arg =~ /\s/ |
|
830
|
0 |
0 |
if defined $_[10] |
|
833
|
0 |
0 |
if (defined $arg) |
|
834
|
0 |
0 |
if $arg =~ /\s/ |
|
843
|
0 |
0 |
if defined $_[11] |
|
845
|
0 |
0 |
unless (defined $numeric) |
|
850
|
0 |
0 |
if (defined $arg) |
|
851
|
0 |
0 |
if $arg =~ /\s/ |
|
862
|
0 |
0 |
unless (defined $one) |
|
867
|
0 |
0 |
if defined $two |
|
876
|
0 |
0 |
unless (defined $numeric and defined $one) |
|
881
|
0 |
0 |
if defined $two |
|
890
|
0 |
0 |
unless (defined $arg) |
|
895
|
0 |
0 |
if $arg =~ /\s/ |
|
905
|
0 |
0 |
unless (defined $numeric and defined $arg) |
|
910
|
0 |
0 |
if $arg =~ /\s/ |
|
920
|
0 |
0 |
unless (defined $one and defined $two) |
|
925
|
0 |
0 |
if $two =~ /\s/ |
|
934
|
0 |
0 |
unless (defined $numeric and defined $one and defined $two) |
|
939
|
0 |
0 |
if $two =~ /\s/ |
|
948
|
0 |
0 |
unless (defined $numeric and defined $to and defined $message) |
|
952
|
0 |
0 |
if (ref $to eq 'ARRAY') |
|
980
|
0 |
0 |
if defined $args |
|
990
|
0 |
0 |
if defined $args |
|
1003
|
0 |
1 |
if $heap->{'socket'} |
|
1012
|
0 |
1 |
if $heap->{'socket'} |
|
1021
|
0 |
0 |
if length $topic |
|
1033
|
1 |
2 |
if ($number == 0) |
|
1048
|
4 |
2 |
if ($g >= 64) { } |
|
1099
|
1 |
0 |
if @dotq == 4 |
|
1101
|
1 |
0 |
$dotq[0] ? : |
|
|
0 |
1 |
@dotq > 1 ? : |
|
1144
|
0 |
0 |
if ($char eq '+' or $char eq '-') { } |
|
1176
|
0 |
0 |
if ($server eq $self->{'servers_numeric'}{$_}{'Link'} and not defined $self->{'servers_numeric'}{$server}{'ToDelete'}) |
|
1204
|
1 |
0 |
if (defined $self->{'bynickname'}{u_irc($nickname)}) |
|
1207
|
0 |
1 |
if (defined $self->{'burst_nicks'}{$self->{'bynickname'}{u_irc($nickname)}{'Numeric'}}) |
|
1212
|
1 |
0 |
unless (defined $self->{'bynumeric'}{$numeric}) |
|
1235
|
0 |
0 |
if (scalar keys %{$$self{'channels'}{$_}{'Members'};} == 0) |
|
1276
|
0 |
0 |
if (/^\+(.+)/) |
|
1277
|
0 |
0 |
if (not defined $currentumode) { } |
|
1285
|
0 |
0 |
if (/^-(.+)/) |
|
1286
|
0 |
0 |
if (defined $currentumode) |
|
1293
|
0 |
0 |
if (defined $currentumode and $currentumode) { } |
|
1310
|
1 |
0 |
unless (exists $self->{'channels'}{$channel}) |
|
1328
|
0 |
0 |
if (scalar keys %{$$self{'channels'}{$_}{'Members'};} == 0) |
|
1369
|
0 |
0 |
if /\+[ovbkl]/ |
|
1370
|
0 |
0 |
if /-[ovb]/ |
|
1372
|
0 |
0 |
if (/b/) |
|
1376
|
0 |
0 |
if (/l/) |
|
1377
|
0 |
0 |
if (/^\+(.+)/) { } |
|
1386
|
0 |
0 |
if (/k/) |
|
1387
|
0 |
0 |
if (/^\+(.+)/) { } |
|
1396
|
0 |
0 |
if (/[ov]/) |
|
1398
|
0 |
0 |
if (/\+o/) |
|
1399
|
0 |
0 |
if (/-o/) |
|
1400
|
0 |
0 |
if (/\+v/) |
|
1401
|
0 |
0 |
if (/-v/) |
|
1406
|
0 |
0 |
if (/^\+(.+)/) |
|
1410
|
0 |
0 |
if (/^-(.+)/) |
|
1430
|
0 |
0 |
if $modes =~ /b/ |
|
1432
|
0 |
0 |
if ($modes =~ /o/ and $self->{'channels'}{$channel}{'Members'}{$_} > 1) |
|
1436
|
0 |
0 |
if ($modes =~ /v/ and $self->{'channels'}{$channel}{'Members'}{$_} > 0) |
|
1451
|
0 |
0 |
if ($operation eq '+b') { } |
|
1467
|
0 |
0 |
if defined $second |
|
1471
|
0 |
0 |
if (exists $self->{'channels'}{$channel}) { } |
|
1472
|
0 |
0 |
if ($timestamp < $self->{'channels'}{$channel}{'TimeStamp'}) |
|
1483
|
0 |
0 |
if ($args[$i] =~ /^\+(.+)/) |
|
1489
|
0 |
0 |
if ($l > $k and $k != -1) |
|
1496
|
0 |
0 |
if ($l > $k and $k == -1) |
|
1501
|
0 |
0 |
if ($k > $l and $l != -1) |
|
1508
|
0 |
0 |
if ($k > $l and $l == -1) |
|
1516
|
0 |
0 |
if ($args[$i] =~ /^:%(.+)$/) |
|
1526
|
0 |
0 |
if (defined $modes) |
|
1532
|
0 |
0 |
if ($lastmodes eq 'ov') |
|
1536
|
0 |
0 |
if ($lastmodes eq 'o') |
|
1540
|
0 |
0 |
if ($lastmodes eq 'v') |
|
1571
|
0 |
0 |
if exists $self->{'channels'}{$_}{'Mode'} |
|
1572
|
0 |
0 |
if exists $self->{'channels'}{$_}{'ChanKey'} |
|
1573
|
0 |
0 |
if exists $self->{'channels'}{$_}{'ChanLimit'} |
|
1595
|
0 |
0 |
if defined $self->{'burst_nicks'}{$_}{'UMode'} |
|
1596
|
0 |
0 |
if defined $self->{'burst_nicks'}{$_}{'AuthName'} |
|
1598
|
0 |
0 |
if defined $self->{'burst_nicks'}{$_}{'IRCName'} |
|
1604
|
0 |
0 |
if defined $self->{'burst_channels'}{$_}{'Mode'} |
|
1605
|
0 |
0 |
if defined $self->{'burst_channels'}{$_}{'ChanKey'} |
|
1606
|
0 |
0 |
if defined $self->{'burst_channels'}{$_}{'ChanLimit'} |
|
1610
|
0 |
0 |
if ($self->{'burst_channels'}{$_}{'Members'}{$member} > $lastmode) |
|
1616
|
0 |
0 |
if defined $self->{'burst_channels'}{$_}{'Bans'} |
|
1617
|
0 |
0 |
if defined $bans |
|
1729
|
0 |
0 |
if ($self->{'bynumeric'}{$numeric}{'Channels'}{$_} == 1) |
|
1733
|
0 |
0 |
if ($self->{'bynumeric'}{$numeric}{'Channels'}{$_} >= 2) |
|
1747
|
0 |
1 |
if (defined $self->{'channels'}{$channel}) |
|
1758
|
0 |
0 |
if (defined $self->{'channels'}{$channel}{'Members'}{$numeric} and $self->{'channels'}{$channel}{'Members'}{$numeric} >= 2) { } |
|
1770
|
0 |
0 |
if (defined $self->{'channels'}{$channel}{'Members'}{$numeric} and $self->{'channels'}{$channel}{'Members'}{$numeric} == 2 or $self->{'channels'}{$channel}{'Members'}{$numeric} == 3) { } |
|
1781
|
0 |
0 |
if (defined $self->{'bynumeric'}{$numeric}{'UMode'} and $self->{'bynumeric'}{$numeric}{'UMode'} =~ /o/) { } |
|
1806
|
0 |
0 |
if (defined $self->{'bynumeric'}{$numeric}) { } |
|
1875
|
0 |
0 |
if ($number =~ /^[0-9]*$/) { } |
|
1886
|
0 |
0 |
if ($base64 =~ /^[ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789\[\]]*$/) { } |
|
1897
|
0 |
1 |
unless (defined $numeric and defined $channel) |
|
1902
|
0 |
1 |
if ($heap->{'State'}->channel_exists($channel)) { } |