Condition Coverage

blib/lib/Chemistry/Harmonia.pm
Criterion Covered Total %
condition 84 116 72.4


and 3 conditions

line !l l&&!r l&&r condition
120 4 42 42 @maU and $sas =~ /([^@maU])/gx
131 40 6 7 /($maskr|$maskf|$maskq)/g and $_ eq $1
137 38 3 5 /^@maUl\d+$/i and @maU
41 2 3 /^@maUl\d+$/i and @maU and /^(?i:[@maU])\L[@maU]\d+$\E/
140 1 1 1 /$mz/ and exists $$opts{'zero2oxi'}
189 49 3 4 $s =~ /$mz/ and exists $$opts{'zero2oxi'}
271 0 4806 0 @i_maU and /[$saU][\L$saU\E]/ || /[\L$saU\E][$saU]/
447 780 0 49 exists $$opts{'norma'} and scalar grep({grep((!exists($$opts{'coefficients'}{$_})), @{$_;});} @$ce) == 0
482 1 0 779 exists $$opts{'substances'} and @{$$opts{'substances'};}
546 10 65 597 exists $$opts{'coefficients'} and keys %{$$opts{'coefficients'};}
618 134 0 0 @$substances_X < 2 and $R_zero
629 59 58 17 $R_zero and $order == @$substances_X
636 2 2 2 $$opts{'redox_pairs'} and my $redox = &redox_test($chem_eq)
757 0 59 0 $R_zero == 0 and @$substances_X == $order + 1
936 0 4 0 keys %{$rx[0];} and keys %{$rx[1];}
1022 2 0 2 keys %{$redox{'oxidant'};} && keys %{$redox{'reducer'};}
1113 35 4 0 $c =~ /^0$/ and $i == 0 || $i > 0 && $$ip[$i - 1] =~ /\D/
1128 4 3 5 $i < $#{$ip;} and not exists $$coef{'zero2oxi'}
1139 4 0 5 $ip eq $$chem_eq[0] and @{$$chem_eq[1];} == 1
4 0 5 $ip eq $$chem_eq[0] and @{$$chem_eq[1];} == 1 and $$chem_eq[1][0] =~ /[a-zA-Z]/
1301 198 358 0 $i < $#neg and $$atom_el_neg{$neg[0]} == $$atom_el_neg{$neg[$i + 1]}
1460 138 63 0 $no_ion and $balance_A + $balance_B

or 2 conditions

line l !l condition
61 46 0 shift() || (return)
108 46 0 join('', keys %sa) || (return)
380 2 0 shift() || (return)
385 2 0 Rank([values %$atoms_substance]) || (return)
443 0 829 @$ce != 2 or scalar grep((!defined($_)), @$ce)
0 829 @$ce != 2 or scalar grep((!defined($_)), @$ce) or scalar grep({grep((!defined($_)), @{$_;});} @$ce)
746 778 0 prepare_mix($chem_eq, {'substances', $ys}) || (next)
816 330 0 $d || 1
1216 199 0 shift() || (return)
1238 2 0 &_in_os($_) || (return)

or 3 conditions

line l !l&&r !l&&!r condition
235 16071 494 38 my(@i_maUl) = grep(($s =~ /$_/i), @$maUl) or @i_maU
255 15031 25772 5910 $m =~ /$_/i or $saU =~ /$_/i
271 4079 482 4806 /$saUl/ or /[$saU]{2}/
0 1 4805 /[$saU][\L$saU\E]/ || /[\L$saU\E][$saU]/
367 110 24496 512504 length $_ > length $k || $_ eq $k
757 46 0 59 $R_zero or $R_zero == 0 and @$substances_X == $order + 1
1113 2 0 2 $i == 0 || $i > 0 && $$ip[$i - 1] =~ /\D/
1223 198 0 1 @species < 2 or $s ne join('', @species)
1276 0 2 198 $intermet or keys %nf == 1
1301 0 198 358 $i < $#neg and $$atom_el_neg{$neg[0]} == $$atom_el_neg{$neg[$i + 1]} or $i == 1