Branch Coverage

blib/lib/POE/Component/IRC/Plugin/DCC.pm
Criterion Covered Total %
branch 80 118 67.8


line true false branch
23 0 116 if @_ & 1
90 0 2 unless ($self->{'dcc'}{$id})
106 1 9 if ($file =~ /[\s"]/)
122 68 10 if ref($_) =~ /REF|SCALAR/
125 1 9 if ($type eq 'ACCEPT' and $self->{'resuming'}{"$port+$nick"}) { }
1 8 elsif ($type eq 'RESUME') { }
132 0 1 if $cookie->{'nick'} ne $nick
133 0 1 if $cookie->{'port'} ne $port
149 0 26 unless $event =~ /^U_dcc(?:_accept|_chat|_close|_resume)?$/
162 0 8 unless (defined $type)
171 5 3 if ($type eq 'CHAT') { }
3 0 elsif ($type eq 'SEND') { }
175 0 3 unless (defined $file)
181 0 3 unless (defined $size)
197 0 8 if ($self->{'dccports'})
199 0 0 unless (defined $bindport)
214 1 7 if $self->{'nataddr'}
216 0 8 unless (defined $addr)
226 3 5 $size ? :
256 0 6 unless (defined $cookie)
261 3 3 if ($cookie->{'type'} eq 'SEND')
263 2 1 if defined $myfile
283 0 7 unless (defined $id and @data)
288 0 7 unless (exists $self->{'dcc'}{$id})
293 0 7 unless (exists $self->{'dcc'}{$id}{'wheel'})
298 0 7 if ($self->{'dcc'}{$id}{'type'} ne 'CHAT')
312 0 5 unless (defined $id)
317 0 5 unless (exists $self->{'dcc'}{$id})
322 0 5 unless (exists $self->{'dcc'}{$id}{'wheel'})
328 1 4 if ($self->{'dcc'}{$id}{'wheel'}->get_driver_out_octets)
342 0 2 if ($self->{'dcc'}{$id}{'listener'} and $self->{'dccports'})
356 1 0 if defined $myfile
360 1 0 if (open my $handle, '>>', $cookie->{'file'}) { }
378 5 264 if ($self->{'dcc'}{$id}{'alarm_id'})
382 131 138 if ($self->{'dcc'}{$id}{'type'} eq 'GET') { }
131 7 elsif ($self->{'dcc'}{$id}{'type'} eq 'SEND') { }
412 3 128 if ($self->{'dcc'}{$id}{'done'} >= $self->{'dcc'}{$id}{'size'})
414 0 3 if ($self->{'dcc'}{$id}{'listener'} and $self->{'dccports'})
453 5 2 unless (exists $self->{'dcc'}{$id})
454 5 0 if (exists $self->{'wheelmap'}{$id}) { }
464 0 3 if ($self->{'dcc'}{$id}{'listener'} and $self->{'dccports'})
469 0 7 if $errnum != 0
473 3 4 if ($self->{'dcc'}{$id}{'type'} eq 'GET')
474 0 3 if ($self->{'dcc'}{$id}{'done'} < $self->{'dcc'}{$id}{'size'})
479 7 0 if ($self->{'dcc'}{$id}{'type'} =~ /^(GET|CHAT)$/)
495 0 0 if ($errnum == 0 and $self->{'dcc'}{$id}{'type'} eq 'GET') { }
499 0 0 $errstr ? :
523 2 0 if (exists $self->{'dcc'}{$id} and not $self->{'dcc'}{$id}{'open'})
554 3 9 $self->{'dcc'}{$id}{'type'} eq 'GET' ? :
6 6 $self->{'dcc'}{$id}{'type'} eq 'CHAT' ? :
565 3 9 if ($self->{'dcc'}{$id}{'type'} eq 'GET') { }
3 6 elsif ($self->{'dcc'}{$id}{'type'} eq 'SEND') { }
567 1 2 $self->{'dcc'}{$id}{'resuming'} ? :
569 0 3 unless (open $handle, $mode, $self->{'dcc'}{$id}{'file'})
578 0 3 unless (open $handle, '<', $self->{'dcc'}{$id}{'file'})
613 3 11 if (exists $self->{'dcc'}{$id}{'alarm_id'})
617 12 2 if (exists $self->{'dcc'}{$id}{'wheel'})
619 0 12 if ($^O =~ /cygwin|MSWin/)
625 3 11 if $self->{'dcc'}{$id}{'type'} eq 'GET'