Branch Coverage

blib/lib/Net/Trac/TicketHistoryEntry.pm
Criterion Covered Total %
branch 5 36 13.8


line true false branch
89 0 0 if ($e =~ m[(.*?)]is)
94 0 0 if ($e =~ m[(.*?)]is)
99 0 0 if ($e =~ m[(.*?)]is)
104 0 0 if ($e =~ m[\s*(.*?)\s*]is)
107 0 0 if ($desc =~ s[^\s*?<ul>(.*?)</ul>][]is)
134 0 3 if ($line =~ m[attachment])
136 0 0 unless my $content = $self->connection->_fetch('/attachment/ticket/' . $self->ticket->id . '/' . uri_escape($name))
142 0 0 if ($content =~ m[
(.+?)
]is)
155 0 3 if ($line =~ m[description])
161 0 3 if ($line =~ m[(keywords|cc)(.*)$]is) { }
3 0 elsif ($line =~ m[(.*?)\s+changed\s+from\s+(.*?)\s+to\s+(.*?)]is) { }
0 0 elsif ($line =~ m[(.*?)\s+set\s+to\s+(.*?)]is) { }
0 0 elsif ($line =~ m[(.*?)\s+(.*?)\s+deleted]is) { }
0 0 elsif ($line =~ m[(.*?)\s+deleted]is) { }
165 0 0 if ($value_changes =~ m[^\s*(.*?) added]is)
170 0 0 if ($value_changes =~ m[(?:^|added;)\s*(.*) removed]is)
179 0 0 if grep {$_ eq $value;} @added
205 3 0 if ($prop) { }