| line |
true |
false |
branch |
|
32
|
0 |
0 |
if ($self->can($method)) { } |
|
40
|
0 |
0 |
unless defined $self->{'charset'} |
|
42
|
0 |
0 |
unless $self->init |
|
94
|
0 |
0 |
unless $self->{'no_run'} |
|
147
|
0 |
0 |
if (ref $_[0]) { } |
|
155
|
0 |
0 |
unless $args->{'run'} |
|
165
|
0 |
0 |
if (ref($args->{'run'}) =~ /^CODE/) { } |
|
215
|
0 |
0 |
unless (ref $_[0]) |
|
224
|
0 |
0 |
if (ref $_[0]) { } |
|
235
|
0 |
0 |
if ($args->{'channel'} ne 'msg' and defined $args->{'address'}) |
|
240
|
0 |
0 |
$args->{'channel'} eq 'msg' ? : |
|
242
|
0 |
0 |
unless (defined $who and defined $body) |
|
262
|
0 |
0 |
defined $args->{'irc_command'} && $args->{'irc_command'} eq 'notice' ? : |
|
286
|
0 |
0 |
unless (ref $_[0]) |
|
295
|
0 |
0 |
if (ref $_[0]) { } |
|
308
|
0 |
0 |
$args->{'channel'} eq 'msg' ? : |
|
323
|
0 |
0 |
unless (ref $_[0]) |
|
330
|
0 |
0 |
if (ref $_[0]) { } |
|
362
|
0 |
0 |
unless my $channel = shift() |
|
365
|
0 |
0 |
unless exists $channels->{$channel} |
|
379
|
0 |
0 |
if @_ |
|
385
|
0 |
0 |
if @_ |
|
391
|
0 |
0 |
if @_ |
|
397
|
0 |
0 |
if @_ |
|
403
|
0 |
0 |
if @_ |
|
409
|
0 |
0 |
if @_ |
|
415
|
0 |
0 |
if @_ |
|
416
|
0 |
0 |
if defined $self->{'nick'} |
|
427
|
0 |
0 |
if (@_) |
|
429
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
432
|
0 |
0 |
unless $self->{'alt_nicks'} |
|
437
|
0 |
0 |
if @_ |
|
438
|
0 |
0 |
defined $self->{'username'} ? : |
|
443
|
0 |
0 |
if @_ |
|
444
|
0 |
0 |
defined $self->{'name'} ? : |
|
449
|
0 |
0 |
if (@_) |
|
451
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
454
|
0 |
0 |
unless $self->{'channels'} |
|
459
|
0 |
0 |
if @_ |
|
460
|
0 |
0 |
defined $self->{'quit_message'} ? : |
|
465
|
0 |
0 |
if (@_) |
|
467
|
0 |
0 |
ref $_[0] eq 'ARRAY' ? : |
|
470
|
0 |
0 |
unless $self->{'ignore_list'} |
|
475
|
0 |
0 |
if (@_) |
|
483
|
0 |
0 |
if @_ |
|
489
|
0 |
0 |
if @_ |
|
656
|
0 |
0 |
if (lc $channel eq lc $self->nick) { } |
|
667
|
0 |
0 |
if ($mess->{'channel'} ne 'msg') |
|
670
|
0 |
0 |
if ($mess->{'body'} =~ s/^(\Q$own_nick\E)\s*[:,-]?\s*//i) |
|
675
|
0 |
0 |
if $mess->{'address'} |
|
676
|
0 |
0 |
if ($mess->{'body'} =~ s/^(\Q$alt_nick\E)\s*[:,-]?\s*//i) |
|
687
|
0 |
0 |
if ($mess->{'address'} and $mess->{'body'} =~ /^help/i) |
|
688
|
0 |
0 |
unless $mess->{'body'} = $self->help($mess) |
|
699
|
0 |
0 |
unless defined $return |
|
702
|
0 |
0 |
if (not ref $return and length $return) |
|
714
|
0 |
0 |
if ($self->nick eq $nick) |
|
716
|
0 |
0 |
unless grep {$_ eq $channel;} @channels |
|
728
|
0 |
0 |
if ($self->nick eq $nick) |
|
757
|
0 |
0 |
unless defined $return |
|
760
|
0 |
0 |
if (not ref $return) |
|
779
|
0 |
0 |
if $delay |
|
888
|
0 |
0 |
if (ref $_ eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $_ eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $_) { } |
|
910
|
0 |
0 |
if (ref $_ eq 'ARRAY') { } |
|
|
0 |
0 |
elsif (ref $_ eq 'HASH') { } |
|
|
0 |
0 |
elsif (ref $_) { } |