Branch Coverage

blib/lib/EMDIS/ECS/Message.pm
Criterion Covered Total %
branch 33 70 47.1


line true false branch
27 0 19 if (ref $arg1) { }
43 18 1 if ($raw_text =~ /(.*?\n)\n(.*)/s) { }
52 17 1 if ($this->{'headers'} =~ /^Subject:\s*(.+?)$/im) { }
60 0 17 if (ecs_is_configured()) { }
67 9 8 if ($this->{'subject'} =~ m[$mail_mrk:(\S+?):(\d+)(:(\d+)/(\d+))?\s*$]i) { }
3 5 elsif ($this->{'subject'} =~ /$mail_mrk:(\S+)\s*$/i) { }
73 2 7 defined $4 ? :
74 2 7 defined $5 ? :
75 1 8 if ($this->{'part_num'} > $this->{'num_parts'})
92 1 15 if ($this->{'headers'} =~ /^Content-type:\s*(.+?)$/im)
97 14 2 if ($this->{'headers'} =~ /^From:\s*(.+?)$/im)
102 14 2 if ($this->{'headers'} =~ /^To:\s*(.+?)$/im)
107 1 15 if ($this->{'headers'} =~ /^Content-Transfer-Encoding\s*:\s*quoted-printable$/im)
229 1 0 if (ref $arg1) { }
240 0 1 unless open MSGFILE, ">$filename"
242 0 1 unless print MSGFILE $msg->full_msg
257 0 1 if (ref $arg1) { }
268 0 1 unless open MSGFILE, "< $filename"
270 0 1 unless $raw_text = join('', readline MSGFILE)
273 0 1 if $err
277 0 1 if (ref $arg1) { }
286 1 0 if ref $newmsg
299 0 0 if (ref $arg1) { }
311 0 0 unless ref $newmsg
312 0 0 unless $newmsg->is_ecs_message
317 0 0 unless ($was_locked)
318 0 0 unless $node_tbl->lock
323 0 0 unless ($was_locked)
326 0 0 unless ($node)
333 0 0 if (/PGP2/i)
338 0 0 /verify/i ? :
341 0 0 if (/OpenPGP/i)
346 0 0 /verify/i ? :
351 0 0 if ($err)
359 0 0 unless $fh->open("< $decr_filename")