Branch Coverage

blib/lib/CTK/Crypt.pm
Criterion Covered Total %
branch 0 40 0.0


line true false branch
198 0 0 unless $st
204 0 0 unless $st
210 0 0 unless (defined $filein and length $filein and -e $filein)
214 0 0 unless (defined $fileout and length $fileout)
220 0 0 unless (my $infh = 'IO::File'->new($filein, 'r'))
224 0 0 unless ($infh->binmode)
228 0 0 unless (my $outfh = 'IO::File'->new($fileout, 'w'))
232 0 0 unless ($outfh->binmode)
240 0 0 unless ($outfh->write($tcd->encrypt($buf), 32768))
246 0 0 unless ($outfh->close)
250 0 0 unless ($infh->close)
259 0 0 unless (defined $filein and length $filein and -e $filein)
263 0 0 unless (defined $fileout and length $fileout)
269 0 0 unless (my $infh = 'IO::File'->new($filein, 'r'))
273 0 0 unless ($infh->binmode)
277 0 0 unless (my $outfh = 'IO::File'->new($fileout, 'w'))
281 0 0 unless ($outfh->binmode)
289 0 0 unless ($outfh->write($tcd->decrypt($buf), 16384))
295 0 0 unless ($outfh->close)
299 0 0 unless ($infh->close)