Branch Coverage

lib/Net/Sieve/Script/Rule.pm
Criterion Covered Total %
branch 70 110 63.6


line true false branch
78 15 19 if $param{'order'}
80 30 4 if ($param{'block'})
89 26 8 if ($param{'test_list'})
92 0 26 ref $param{'test_list'} eq 'Net::Sieve::Script::Condition' ? :
112 0 0 unless defined $object
113 0 0 unless $object->isa('Net::Sieve::Script::Rule')
125 0 0 if (defined $myvalue) { }
126 0 0 unless defined $theirvalue
127 0 0 unless $myvalue eq $theirvalue
129 0 0 if defined $theirvalue
133 0 0 if (defined $self->conditions) { }
134 0 0 unless $self->conditions->isa('Net::Sieve::Script::Condition')
136 0 0 unless $self->conditions->equals($object->conditions)
138 0 0 if defined $object->conditions
141 0 0 if (defined $self->actions) { }
146 0 0 unless $#myactions == $#theiractions
148 0 0 unless ($#myactions == -1)
152 0 0 if (defined $myaction) { }
153 0 0 unless $myaction->isa('Net::Sieve::Script::Action')
155 0 0 unless $myaction->equals($theiraction)
157 0 0 if defined $theiraction
163 0 0 if defined $object->actions
180 2 15 if ($self->alternate eq 'vacation')
184 13 2 $self->write_condition ? :
185 15 0 $self->write_action ? :
205 2 28 unless $self->conditions
207 2 26 if (defined $self->conditions->require)
231 24 49 unless $command->command
233 29 20 if $command->param
235 29 18 if $command->command ne 'keep' and $command->command ne 'discard' and $command->command ne 'stop'
260 1 4 unless defined $cond_to_delete
264 1 3 unless (defined $cond_to_delete->parent)
271 5 3 if $cond->id != $id
275 2 1 if (scalar @new_conditions == 1)
281 1 1 defined $old_parent ? :
301 4 7 ref $cond eq 'Net::Sieve::Script::Condition' ? :
303 4 7 if ($parent_id)
306 1 3 if not $parent or $parent->test ne 'allof' and $parent->test ne 'anyof'
307 2 1 defined $parent->condition ? :
314 4 3 if (defined $self->conditions) { }
315 2 2 if ($self->conditions->test eq 'anyof' or $self->conditions->test eq 'allof') { }
356 1 3 if $swap1 == $swap2
357 0 3 unless defined $self->actions
358 1 2 if $swap1 <= 0 or $swap2 <= 0
363 1 1 if ref $pa1 ne 'Net::Sieve::Script::Action'
364 0 1 if ref $pa2 ne 'Net::Sieve::Script::Action'
371 1 2 if ($i == $swap1) { }
1 1 elsif ($i == $swap2) { }
399 1 7 unless defined $self->actions
403 5 10 if $i == $order
423 2 2 unless defined $self->actions
428 1 2 if ($i == $order) { }
457 4 3 defined $self->actions ? :
459 2 5 if ($action =~ /;/g and ref $action ne 'Net::Sieve::Script::Action') { }
466 1 4 ref $action eq 'Net::Sieve::Script::Action' ? :