blib/lib/Mojo/IRC.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 18 | 34 | 52.9 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
54 | 1 | 2 | 1 | $old and $old eq $server |
line | l | !l | condition |
---|---|---|---|
11 | 0 | 11 | $ENV{'MOJO_IRC_DEBUG'} || 0 |
50 | 14 | 1 | $self->{'server'} || '' |
83 | 0 | 0 | $tls->{'cert'} || '/root/.cpan/build/Mojo-IRC-0.47-0/blib/lib/Mojo/mojo-irc-client.crt' |
84 | 0 | 0 | $tls->{'key'} || '/root/.cpan/build/Mojo-IRC-0.47-0/blib/lib/Mojo/mojo-irc-client.key' |
89 | 9 | 1 | $port ||= 6667 |
234 | 7 | 0 | ($message->{'prefix'} =~ /^[~&\@%+]?(.*?)!/u)[0] || '' |
265 | 19 | 3 | $v || 1 |
280 | 0 | 2 | $self->{'ping_pong_interval'} || 60 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
12 | 0 | 11 | 0 | $ENV{'MOJO_IRC_CERT_FILE'} || catfile(dirname('/root/.cpan/build/Mojo-IRC-0.47-0/blib/lib/Mojo/IRC.pm'), 'mojo-irc-client.crt') |
13 | 0 | 11 | 0 | $ENV{'MOJO_IRC_KEY_FILE'} || catfile(dirname('/root/.cpan/build/Mojo-IRC-0.47-0/blib/lib/Mojo/IRC.pm'), 'mojo-irc-client.key') |
91 | 3 | 7 | 0 | $self->{'debug_key'} ||= "${host}:$port" |
280 | 0 | 2 | 0 | $self->{'ping_tid'} ||= $self->ioloop->recurring($self->{'ping_pong_interval'} || 60, sub { $self->write("PING", $self->real_host); } ) |
334 | 39 | 0 | 0 | $NUMERIC2NAME{$cmd} || IRC::Utils::numeric_to_name($cmd) || $cmd |