Branch Coverage

blib/lib/TableDataRole/Source/CSVInFile.pm

Criterion	Covered	Total	%
branch	10	16	62.5

line	true	false	branch
22	3	5	if (defined(my $filename = delete $args{'filename'})) { }
	5	0	elsif (defined($fh = delete $args{'filehandle'})) { }
23	0	3	unless open $fh, "<", $filename
29	0	8	if keys %args
35	0	8	unless my $columns = $csv_parser->getline($fh)
68	4	6	wantarray ? :
80	0	312	if eof $fh
89	0	4	if eof $fh