Branch Coverage

blib/lib/Mail/SRS/Shortcut.pm
Criterion Covered Total %
branch 6 10 60.0


line true false branch
39 16 48 if ($senduser =~ s/^$Mail::SRS::Shortcut::SRS0RE//io) { }
0 48 elsif ($senduser =~ s/$Mail::SRS::Shortcut::SRS1RE//io) { }
75 0 95 unless ($user =~ s/$Mail::SRS::Shortcut::SRS0RE//io)
85 0 95 unless ($self->hash_verify($hash, $timestamp, $sendhost, $senduser))
89 0 95 unless ($self->timestamp_check($timestamp))