| line |
true |
false |
branch |
|
32
|
0 |
0 |
if ($self->can($method)) { } |
|
40
|
0 |
0 |
unless defined $self->{'charset'} |
|
42
|
0 |
0 |
unless $self->init |
|
95
|
0 |
0 |
unless $self->{'no_run'} |
|
150
|
0 |
0 |
if (ref $_[0]) { } |
|
158
|
0 |
0 |
unless $args->{'run'} |
|
168
|
0 |
0 |
if (ref($args->{'run'}) =~ /^CODE/) { } |
|
218
|
0 |
0 |
unless (ref $_[0]) |
|
227
|
0 |
0 |
if (ref $_[0]) { } |
|
238
|
0 |
0 |
if ($args->{'channel'} ne 'msg' and defined $args->{'address'}) |
|
243
|
0 |
0 |
$args->{'channel'} eq 'msg' ? : |
|
245
|
0 |
0 |
unless (defined $who and defined $body) |
|
265
|
0 |
0 |
defined $args->{'irc_command'} && $args->{'irc_command'} eq 'notice' ? : |
|
289
|
0 |
0 |
unless (ref $_[0]) |
|
298
|
0 |
0 |
if (ref $_[0]) { } |
|
311
|
0 |
0 |
$args->{'channel'} eq 'msg' ? : |
|
326
|
0 |
0 |
unless (ref $_[0]) |
|
333
|
0 |
0 |
if (ref $_[0]) { } |
|
365
|
0 |
0 |
unless my $channel = shift() |
|
368
|
0 |
0 |
unless exists $channels->{$channel} |
|
382
|
0 |
0 |
if @_ |
|
388
|
0 |
0 |
if @_ |
|
394
|
0 |
0 |
if @_ |
|
400
|
0 |
0 |
if @_ |
|
406
|
0 |
0 |
if @_ |
|
412
|
0 |
0 |
if @_ |
|
418
|
0 |
0 |
if @_ |
|
419
|
0 |
0 |
if defined $self->{'nick'} |
|
430
|
0 |
0 |
if (@_) |
|
432
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
435
|
0 |
0 |
unless $self->{'alt_nicks'} |
|
440
|
0 |
0 |
if @_ |
|
441
|
0 |
0 |
defined $self->{'username'} ? : |
|
446
|
0 |
0 |
if @_ |
|
447
|
0 |
0 |
defined $self->{'name'} ? : |
|
452
|
0 |
0 |
if (@_) |
|
454
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
457
|
0 |
0 |
unless $self->{'channels'} |
|
462
|
0 |
0 |
if @_ |
|
463
|
0 |
0 |
defined $self->{'quit_message'} ? : |
|
468
|
0 |
0 |
if (@_) |
|
470
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
473
|
0 |
0 |
unless $self->{'ignore_list'} |
|
478
|
0 |
0 |
if (@_) |
|
486
|
0 |
0 |
if @_ |
|
492
|
0 |
0 |
if @_ |
|
498
|
0 |
0 |
if @_ |
|
682
|
0 |
0 |
if (lc $channel eq lc $self->nick) { } |
|
693
|
0 |
0 |
if ($mess->{'channel'} ne 'msg') |
|
696
|
0 |
0 |
if ($mess->{'body'} =~ s/^(\Q$own_nick\E)\s*[:,-]?\s*//i) |
|
701
|
0 |
0 |
if $mess->{'address'} |
|
702
|
0 |
0 |
if ($mess->{'body'} =~ s/^(\Q$alt_nick\E)\s*[:,-]?\s*//i) |
|
713
|
0 |
0 |
if ($mess->{'address'} and $mess->{'body'} =~ /^help/i) |
|
714
|
0 |
0 |
unless $mess->{'body'} = $self->help($mess) |
|
725
|
0 |
0 |
unless defined $return |
|
728
|
0 |
0 |
if (not ref $return and length $return) |
|
740
|
0 |
0 |
if ($self->nick eq $nick) |
|
742
|
0 |
0 |
unless grep {$_ eq $channel;} @channels |
|
754
|
0 |
0 |
if ($self->nick eq $nick) |
|
783
|
0 |
0 |
unless defined $return |
|
786
|
0 |
0 |
if (not ref $return) |
|
805
|
0 |
0 |
if $delay |
|
914
|
0 |
0 |
if (ref $_ eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $_ eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $_) { } |
|
936
|
0 |
0 |
if (ref $_ eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $_ eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $_) { } |