Branch Coverage

blib/lib/Protocol/IRC/Message.pm
Criterion Covered Total %
branch 56 62 90.3


line true false branch
64 1 35 if ($line =~ s/^\@([^ ]+) +//)
66 2 1 if (/^([^=]+)=(.*)$/) { }
76 29 7 if ($line =~ s/^:([^ ]+) +//)
83 25 11 if defined $final
127 1 50 unless $command =~ /^[A-Z]+$/ or $command =~ /^\d\d\d$/
131 1 5 unless $key =~ m[^[a-zA-Z0-9./-]+$]
135 1 4 if defined $value and $value =~ /[ ;]/
139 31 17 if (defined $prefix)
140 1 30 if $prefix =~ /[ \t\x0d\x0a]/
145 1 41 unless defined $_
146 1 40 if /[ \t\x0d\x0a]/
150 40 5 if (@args)
151 1 39 unless defined $args[-1]
152 1 38 if $args[-1] =~ /[\x0d\x0a]/
189 0 0 defined $self->{'prefix'} ? :
251 45 7 defined $self->{'prefix'} ? :
270 18 4 if $prefix =~ /^(.*?)!(.*?)@(.*)$/
320 1 12 if (keys %{$$self{'tags'};})
322 1 0 defined $tags->{$_} ? :
325 2 11 if (defined $self->{'prefix'})
332 7 13 if (/ / or /^:/) { }
432 30 1 if (ref $_[0]) { }
439 0 1 unless defined $command
461 1 23 unless my $argnames = $self->arg_names
468 2 44 if ($argindex eq 'pn') { }
3 41 elsif ($argindex =~ /^(-?\d+)?\.\.(-?\d+)?$/) { }
40 1 elsif ($argindex =~ /^-?\d+$/) { }
1 0 elsif ($argindex =~ /^(-?\d+)\@$/) { }
475 0 3 unless defined $start
476 2 1 unless defined $end
478 1 2 if $end < 0