blib/lib/Mojo/IRC.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
condition | 18 | 36 | 50.0 |
line | !l | l&&!r | l&&r | condition |
---|---|---|---|---|
53 | 1 | 2 | 1 | $old and $old eq $server |
line | l | !l | condition |
---|---|---|---|
10 | 0 | 22 | $ENV{'MOJO_IRC_DEBUG'} || 0 |
49 | 24 | 1 | $self->{'server'} || '' |
82 | 0 | 0 | $tls->{'cert'} || '/root/.cpan/build/Mojo-IRC-0.45-0/blib/lib/Mojo/mojo-irc-client.crt' |
83 | 0 | 0 | $tls->{'key'} || '/root/.cpan/build/Mojo-IRC-0.45-0/blib/lib/Mojo/mojo-irc-client.key' |
87 | 19 | 1 | $port ||= 6667 |
189 | 0 | 0 | $self->{'track_any'} || 0 |
237 | 8 | 0 | ($message->{'prefix'} =~ /^[~&\@%+]?(.*?)!/)[0] || '' |
268 | 37 | 12 | $v || 1 |
283 | 0 | 2 | $self->{'ping_pong_interval'} || 60 |
line | l | !l&&r | !l&&!r | condition |
---|---|---|---|---|
11 | 0 | 22 | 0 | $ENV{'MOJO_IRC_CERT_FILE'} || catfile(dirname('/root/.cpan/build/Mojo-IRC-0.45-0/blib/lib/Mojo/IRC.pm'), 'mojo-irc-client.crt') |
12 | 0 | 22 | 0 | $ENV{'MOJO_IRC_KEY_FILE'} || catfile(dirname('/root/.cpan/build/Mojo-IRC-0.45-0/blib/lib/Mojo/IRC.pm'), 'mojo-irc-client.key') |
89 | 3 | 17 | 0 | $self->{'debug_key'} ||= "${host}:$port" |
283 | 0 | 2 | 0 | $self->{'ping_tid'} ||= $self->ioloop->recurring($self->{'ping_pong_interval'} || 60, sub { $self->write('PING', $self->real_host); } ) |
338 | 81 | 0 | 0 | $NUMERIC2NAME{$cmd} || IRC::Utils::numeric_to_name($cmd) || $cmd |