Branch Coverage

blib/lib/Protocol/IRC/Message.pm
Criterion Covered Total %
branch 61 68 89.7


line true false branch
62 1 69 if ($line =~ s/^\@([^ ]+) +//u)
64 2 1 if (/^([^=]+)=(.*)$/u) { }
74 63 7 if ($line =~ s/^:([^ ]+) +//u)
81 43 27 if defined $final
128 1 20 if $idx eq 'pn'
130 0 20 unless defined(my $value = $args{$name})
133 20 0 if ($idx =~ /^\d+$/u) { }
165 1 97 unless $command =~ /^[A-Z]+$/u or $command =~ /^\d\d\d$/u
169 1 5 unless $key =~ m[^[a-zA-Z0-9./-]+$]u
173 1 4 if defined $value and $value =~ /[ ;]/u
177 65 30 if (defined $prefix)
178 1 64 if $prefix =~ /[ \t\x0d\x0a]/u
183 1 135 unless defined $_
184 1 134 if /[ \t\x0d\x0a]/u
188 85 7 if (@args)
189 1 84 unless defined $args[-1]
190 1 83 if $args[-1] =~ /[\x0d\x0a]/u
227 2 0 defined $self->{'prefix'} ? :
289 80 7 defined $self->{'prefix'} ? :
308 31 25 if $prefix =~ /^(.*?)!(.*?)@(.*)$/u
358 1 25 if (keys %{$$self{'tags'};})
360 1 0 defined $tags->{$_} ? :
363 2 24 if (defined $self->{'prefix'})
370 15 25 if (/ /u or /^:/u) { }
477 64 13 if (ref $_[0]) { }
484 0 13 unless defined $command
506 3 55 unless my $argnames = $self->arg_names
513 2 126 if ($argindex eq 'pn') { }
17 109 elsif ($argindex =~ /^(-?\d+)?\.\.(-?\d+)?$/u) { }
105 4 elsif ($argindex =~ /^-?\d+$/u) { }
4 0 elsif ($argindex =~ /^(-?\d+)\@$/u) { }
520 0 17 unless defined $start
521 14 3 unless defined $end
523 3 14 if $end < 0