Branch Coverage

blib/lib/Mail/Procmailrc.pm
Criterion Covered Total %
branch 154 180 85.5


line true false branch
52 72 12 if ('HASH' eq ref $data) { }
55 72 0 if $$data{'data'}
71 81 3 unless $file = $self->file($file)
72 0 3 unless -f $file
76 0 3 unless (open FILE, $file)
103 67 28 if ('ARRAY' eq ref $data) { }
108 0 28 if ref $data
120 37 374 if ($line =~ s/$Mail::Procmailrc::RE{'blklinem'}/$1/)
128 101 310 if ($line =~ s/$Mail::Procmailrc::RE{'flagsm'}/$1/) { }
111 199 elsif ($line =~ s/$Mail::Procmailrc::RE{'varm'}/$1/) { }
35 164 elsif ($line =~ /$Mail::Procmailrc::RE{'comm'}/) { }
102 62 elsif ($line =~ /$Mail::Procmailrc::RE{'blank'}/) { }
25 37 elsif ($line =~ /$Mail::Procmailrc::RE{'blkopen'}/) { }
25 12 elsif ($line =~ /$Mail::Procmailrc::RE{'blkclose'}/) { }
147 9 93 if (defined $$data[0] and $$data[0] =~ /$Mail::Procmailrc::RE{'blank'}/)
149 5 4 unless $self->blockline
173 37 344 if $self->blockline
184 181 543 defined $data ? :
215 0 1 unless $seek and ref $seek
220 2 7 if $found
221 6 1 unless $obj == $seek
235 116 0 defined $self->level ? :
238 37 79 if ($self->blockline) { }
246 1 467 unless defined $elem
262 3 0 if ($file) { }
264 0 3 unless (open FILE, ">$file")
272 0 0 unless $file
284 0 0 defined $debug ? :
291 6 81 defined $file ? :
298 393 293 defined $$self{'Level'} ? :
114 686 defined $level ? :
309 37 506 defined $blockline ? :
313 411 0 unless $Mail::Procmailrc::Debug
330 183 227 if ref $defs
349 0 629 unless ($defaults)
354 446 183 unless (ref $defaults)
355 0 440 defined $value ? :
440 6 defined $$self{'DEFAULTS'}{$defaults} ? :
371 240 556 if $data
372 240 556 if $data
373 203 593 if $data
375 252 133 $$self{'DATA'} ? :
411 385 defined $data ? :
386 220 6 defined $self->defaults('level') ? :
404 112 11 if $defs
415 0 333 unless ($defaults)
420 221 112 unless (ref $defaults)
421 0 210 defined $value ? :
210 11 defined $$self{'DEFAULTS'}{$defaults} ? :
437 3 120 unless defined $data
443 0 120 unless ($line =~ /$Mail::Procmailrc::RE{'var'}/)
449 7 113 if ($line =~ /$Mail::Procmailrc::RE{'varmlq'}/) { }
472 123 283 if $data
474 123 283 defined $data ? :
480 123 287 if $data
482 126 284 defined $data ? :
489 120 161 if ($data)
505 105 11 defined $self->defaults('level') ? :
511 0 0 unless $Mail::Procmailrc::Variable::Debug
531 101 9 if $defs
542 0 418 unless ($defaults)
547 317 101 unless (ref $defaults)
548 0 304 defined $value ? :
304 13 defined $$self{'DEFAULTS'}{$defaults} ? :
575 5 106 unless defined $data
577 103 3 if ('ARRAY' eq ref $data) { }
582 1 2 if ref $data
592 0 105 unless ($line =~ /$Mail::Procmailrc::RE{'flags'}/)
603 1 148 unless defined $line
607 39 109 if ($line =~ s/$Mail::Procmailrc::RE{'comm'}/$1/)
613 5 104 if ($line =~ /$Mail::Procmailrc::RE{'blank'}/)
625 1 373 unless defined $line
629 260 113 if ($line =~ s/$Mail::Procmailrc::RE{'condm'}/$1/)
640 1 112 if ($line =~ /$Mail::Procmailrc::RE{'comt'}/)
645 8 104 if ($line =~ /$Mail::Procmailrc::RE{'blank'}/)
657 1 104 unless defined $line
661 62 42 if ($line =~ /$Mail::Procmailrc::RE{'blkopen'}/) { }
687 1 0 scalar @{$self->info;} ? :
690 1 0 scalar @{$self->conditions;} ? :
692 0 1 ref $self->action ? :
701 121 13 defined $self->defaults('level') ? :
709 63 71 scalar @{$self->info;} ? :
714 103 31 scalar @{$self->conditions;} ? :
718 63 71 ref $self->action ? :
737 221 139 defined $data ? :
748 5 358 if (defined $data and not ref $data)
752 117 246 defined $data ? :
761 115 506 defined $data ? :
768 47 449 if $data and not ref $data
770 220 276 defined $data ? :