blib/lib/File/Temp/MoreUtils.pm | |||
---|---|---|---|
Criterion | Covered | Total | % |
branch | 17 | 20 | 85.0 |
line | true | false | branch |
---|---|---|---|
94 | 1 | 12 | unless defined $args{'name'} |
98 | 4 | 8 | if (exists $args{'dir'}) |
99 | 2 | 2 | if (defined $args{'dir'}) { } |
105 | 0 | 4 | unless -d $dir |
111 | 4 | 8 | defined $dir ? : |
115 | 14 | 12 | if (defined $suffix) { } |
116 | 11 | 3 | unless $name =~ s/(.+\.)(?=.)/"$1$suffix.";/e |
122 | 12 | 14 | if (sysopen $fh, $name, 192) |
125 | 0 | 14 | unless ($! =~ /File exists/) |
128 | 0 | 14 | if ($counter++ > 10000) |