Branch Coverage

blib/lib/SF/SF_form_secure.pm
Criterion Covered Total %
branch 18 64 28.1


line true false branch
31 0 2 unless ($link)
35 0 2 $ip_ct eq 'ip' ? :
42 0 2 if ($act eq 1 and $link and $code) { }
0 2 elsif ($act eq 2 and $code) { }
0 2 elsif ($act eq 3 and $code) { }
1 1 elsif ($act eq 4 and $code) { }
1 0 elsif ($act eq 5 and $code and $ref) { }
59 0 0 if ($link =~ /^(1|3)$/i or $ref)
62 0 0 if ($ref2 eq $QRY)
66 0 0 if (length $REF > 1024)
70 0 0 unless ($REF =~ m[^(http|https)\:\/\/$host_name((.*?)+)$]i)
81 0 0 if ($ref and $ref ne $REF)
86 0 0 if ($link == 1 or $link == 3)
90 0 0 if ($ref_input)
95 0 0 if ($expir)
101 0 0 if ($security_key ne $ref_code)
107 0 0 if ($link == 2 or $link == 3)
116 0 0 if ($qry_input)
121 0 0 if ($expir)
126 0 0 if ($security_key ne $qry_code)
139 0 0 if (not $QRY =~ /;Flex=(.+?)$/i and $QRY eq $link)
153 0 1 unless ($link)
171 0 1 if ($the_input)
176 0 1 if ($expir)
179 0 1 unless ($link)
184 0 1 $security_key ne $ref ? :
196 0 0 if ($expdate and $expdate =~ /^([0-9]+)$/i and length $expdate <= 2 and $datein < $date)
209 0 1 unless ($codein =~ /^([0-9a-z]+)$/i)
212 0 1 if (length $codein < 40 or length $codein > 40)
215 0 1 unless ($datein =~ /^([0-9]+)$/i)
218 0 1 if (length $datein < 10 or length $datein > 10)
233 0 1 if ($limit =~ /^([0-9]+)$/i and length $limit <= 2) { }