| line |
true |
false |
branch |
|
32
|
0 |
0 |
if ($self->can($method)) { } |
|
40
|
0 |
0 |
unless defined $self->{'charset'} |
|
42
|
0 |
0 |
unless $self->init |
|
91
|
0 |
0 |
unless $self->{'no_run'} |
|
141
|
0 |
0 |
if (ref $_[0]) { } |
|
149
|
0 |
0 |
unless $args->{'run'} |
|
159
|
0 |
0 |
if (ref($args->{'run'}) =~ /^CODE/) { } |
|
209
|
0 |
0 |
unless (ref $_[0]) |
|
218
|
0 |
0 |
if (ref $_[0]) { } |
|
229
|
0 |
0 |
if ($args->{'channel'} ne 'msg' and defined $args->{'address'}) |
|
234
|
0 |
0 |
$args->{'channel'} eq 'msg' ? : |
|
236
|
0 |
0 |
unless (defined $who and defined $body) |
|
256
|
0 |
0 |
defined $args->{'irc_command'} && $args->{'irc_command'} eq 'notice' ? : |
|
280
|
0 |
0 |
unless (ref $_[0]) |
|
289
|
0 |
0 |
if (ref $_[0]) { } |
|
302
|
0 |
0 |
$args->{'channel'} eq 'msg' ? : |
|
317
|
0 |
0 |
unless (ref $_[0]) |
|
324
|
0 |
0 |
if (ref $_[0]) { } |
|
356
|
0 |
0 |
unless my $channel = shift() |
|
359
|
0 |
0 |
unless exists $channels->{$channel} |
|
373
|
0 |
0 |
if @_ |
|
379
|
0 |
0 |
if @_ |
|
385
|
0 |
0 |
if @_ |
|
391
|
0 |
0 |
if @_ |
|
397
|
0 |
0 |
if @_ |
|
403
|
0 |
0 |
if @_ |
|
409
|
0 |
0 |
if @_ |
|
410
|
0 |
0 |
if defined $self->{'nick'} |
|
421
|
0 |
0 |
if (@_) |
|
423
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
426
|
0 |
0 |
unless $self->{'alt_nicks'} |
|
431
|
0 |
0 |
if @_ |
|
432
|
0 |
0 |
defined $self->{'username'} ? : |
|
437
|
0 |
0 |
if @_ |
|
438
|
0 |
0 |
defined $self->{'name'} ? : |
|
443
|
0 |
0 |
if (@_) |
|
445
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
448
|
0 |
0 |
unless $self->{'channels'} |
|
453
|
0 |
0 |
if @_ |
|
454
|
0 |
0 |
defined $self->{'quit_message'} ? : |
|
459
|
0 |
0 |
if (@_) |
|
461
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
464
|
0 |
0 |
unless $self->{'ignore_list'} |
|
469
|
0 |
0 |
if (@_) |
|
477
|
0 |
0 |
if @_ |
|
483
|
0 |
0 |
if @_ |
|
650
|
0 |
0 |
if (lc $channel eq lc $self->nick) { } |
|
661
|
0 |
0 |
if ($mess->{'channel'} ne 'msg') |
|
664
|
0 |
0 |
if ($mess->{'body'} =~ s/^(\Q$own_nick\E)\s*[:,-]?\s*//i) |
|
669
|
0 |
0 |
if $mess->{'address'} |
|
670
|
0 |
0 |
if ($mess->{'body'} =~ s/^(\Q$alt_nick\E)\s*[:,-]?\s*//i) |
|
681
|
0 |
0 |
if ($mess->{'address'} and $mess->{'body'} =~ /^help/i) |
|
682
|
0 |
0 |
unless $mess->{'body'} = $self->help($mess) |
|
693
|
0 |
0 |
unless defined $return |
|
696
|
0 |
0 |
if (not ref $return and length $return) |
|
708
|
0 |
0 |
if ($self->nick eq $nick) |
|
710
|
0 |
0 |
unless grep {$_ eq $channel;} @channels |
|
722
|
0 |
0 |
if ($self->nick eq $nick) |
|
751
|
0 |
0 |
unless defined $return |
|
754
|
0 |
0 |
if (not ref $return) |
|
773
|
0 |
0 |
if $delay |
|
870
|
0 |
0 |
if (ref $_ eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $_ eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $_) { } |
|
892
|
0 |
0 |
if (ref $_ eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $_ eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $_) { } |