Branch Coverage

lib/Net/Sieve/Script.pm
Criterion Covered Total %
branch 51 88 57.9


line true false branch
108 2 6 if ($param)
110 1 1 if $param =~ /require @LISTS;/is
115 0 8 if $self->max_priority and $self->max_priority >= 50
153 13 3 if defined $$req[0]
161 0 9 unless $req
166 2 5 if $count > 1
170 7 0 if $require_line
185 0 0 unless defined $object
186 0 0 unless $object->isa('Net::Sieve::Script')
193 0 0 if (defined $myvalue) { }
194 0 0 unless defined $theirvalue
195 0 0 unless $myvalue eq $theirvalue
197 0 0 if defined $theirvalue
201 0 0 if (defined $self->rules) { }
204 0 0 unless $#myrules == $#theirrules
206 0 0 unless ($#myrules == -1)
210 0 0 if (defined $myrule) { }
211 0 0 unless $myrule->isa('Net::Sieve::Script::Rule')
213 0 0 unless $myrule->equals($theirrule)
215 0 0 if defined $theirrule
221 0 0 if defined $object->rules
244 5 1 if $text_rules =~ /require @LISTS;/is
252 1 5 if ($script_raw =~ /^(vacation .*)$/)
265 0 13 if $order >= 50
296 2 11 if $priority > $self->max_priority or $priority <= 0
297 0 11 unless defined $self->rules
300 11 17 if $rule->priority == $priority
321 1 3 if $swap1 == $swap2
326 1 2 if ref $pr1 ne 'Net::Sieve::Script::Rule'
327 1 1 if ref $pr2 ne 'Net::Sieve::Script::Rule'
351 1 4 unless $list
355 0 4 unless scalar @swap
356 3 1 if scalar @swap != $self->max_priority
360 4 0 if ($swap =~ /\d+/)
392 9 0 defined $self->rules ? :
399 8 19 if ($rule->priority == $id) { }
401 6 2 if (defined $Rules[$next] and $rule->alternate eq 'if')
402 1 5 if $Rules[$next]->alternate eq 'elsif'
405 2 4 if ($Rules[$next]->alternate eq 'else')
439 1 17 if ref $rule ne 'Net::Sieve::Script::Rule'
442 13 4 defined $self->rules ? :
464 11 39 if (ref $self eq 'Net::Sieve::Script') { }
465 2 9 unless $script_raw
484 50 0 unless $keep_require