line |
true |
false |
branch |
32
|
0 |
6 |
unless my $type = shift()
|
34
|
0 |
6 |
unless open my $fh, '<', \$string
|
38
|
3 |
3 |
if ($type eq 'pdb') { }
|
|
0 |
3 |
elsif ($type eq 'pdbqt') { }
|
|
2 |
1 |
elsif ($type eq 'xyz') { }
|
|
0 |
1 |
elsif ($type eq 'zmat') { }
|
|
1 |
0 |
elsif ($type eq 'cif') { }
|
|
0 |
0 |
elsif ($type eq 'yaml') { }
|
68
|
0 |
1 |
unless my $fh = 'FileHandle'->new("<$file")
|
77
|
0 |
0 |
unless my $fh = 'FileHandle'->new("<$file")
|
93
|
1 |
23 |
unless my $fh = 'FileHandle'->new("<$file")
|
97
|
11 |
12 |
if ($file =~ /\.pdb$/) { }
|
|
1 |
11 |
elsif ($file =~ /\.pdbqt$/) { }
|
|
0 |
11 |
elsif ($file =~ /\.cif$/) { }
|
|
11 |
0 |
elsif ($file =~ /\.xyz$/) { }
|
|
0 |
0 |
elsif ($file =~ /\.zmat$/) { }
|
|
0 |
0 |
elsif ($file =~ /\.yaml$/) { }
|