Branch Coverage

blib/lib/CGI/Safe.pm
Criterion Covered Total %
branch 16 24 66.6


line true false branch
26 2 2 if (grep {/:(?:standard|cgi)/;} @_)
43 2 2 if (exists $args{'admin'})
47 2 0 if defined $CGI::Safe::path
48 0 2 if defined $CGI::Safe::shell
57 1 3 if (exists $args{'taint'})
68 0 2 if exists $args{'DISABLE_UPLOADS'}
70 0 2 if exists $args{'POST_MAX'}
71 0 2 if exists $args{'PATH'}
72 0 2 if exists $args{'SHELL'}
74 2 0 exists $args{'source'} ? :
80 4 4 if (exists $args{'DISABLE_UPLOADS'} and defined $args{'DISABLE_UPLOADS'})
85 4 0 if (exists $args{'POST_MAX'} and defined $args{'POST_MAX'} and $args{'POST_MAX'} =~ /^\d+$/)