Branch Coverage

blib/lib/Acme/ConspiracyTheory/Random.pm
Criterion Covered Total %
branch 149 154 96.7


line true false branch
17 54553 211351 ref $code eq 'CODE' ? :
137 179 31792 if $redstring->{'protagonists'} and $redstring->{'protagonists'}{'name'} eq $xx->{'name'} or $redstring->{'antagonists'} and $redstring->{'antagonists'}{'name'} eq $xx->{'name'}
142 2184 29608 if ($name =~ /ists$/u and not $name =~ /^the/u)
294 7 29 $food =~ /wine/u ? :
584 10461 108865 if (defined $a->{'splural'})
596 203 152 splural($redstring->{$actor}) ? :
598 3412 1700 if $redstring->{$actor}{'name'}
827 264 21106 if (my $c = $redstring->{'disease_cause'})
833 1521 19849 if (my $m = $redstring->{'misinformation'})
841 400 20970 if (my $auth = $redstring->{'authority'})
849 521 20849 if (my $p = $redstring->{'myth_place'})
858 228 21142 if (my $art = $redstring->{'artifact'})
867 1508 19862 if (my $proj = $redstring->{'shady_project'})
876 1476 19894 if (my $dl = $redstring->{'dark_lord'})
886 5701 15669 if (my $v = ($redstring->{'victim'} // $redstring->{'physicist'}) // $redstring->{'biologist'})
907 3021 18349 if (my $v = $redstring->{'physicist'} // $redstring->{'biologist'})
915 3750 17620 if (my $c = $redstring->{'celebrity'})
916 1373 2377 if ($c->{'female'}) { }
930 1968 19402 if (my $f = $redstring->{'fiction'})
937 116 107 splural($redstring->{'shady_group'}) ? :
946 339 1629 if (my $p = $redstring->{'random_place'})
954 1752 19618 if (my $animal = $redstring->{'real_animal'} // $redstring->{'fake_animal'})
968 484 20886 if (my $mc = $redstring->{'mind_control_device'})
974 270 214 if ($mcp)
987 933 20437 if (my $ft = $redstring->{'future_time'})
995 524 20846 if (my $d = $redstring->{'disease'})
1005 291 21079 if (my $f = $redstring->{'food'})
1014 978 20392 if (my $chem = $redstring->{'chemicals'})
1023 3212 18158 if (my $r = $redstring->{'precious_resource'})
1025 172 3040 unless $redstring->{'shady_group'}{'name'}
1027 3212 6424 if ($redstring->{$_}{'name'})
1029 1409 1803 $redstring->{$_}{'plural'} ? :
1030 270 2942 $r =~ /s$/u ? :
1044 6865 14505 if (my $topic = $redstring->{'topic'})
1046 2580 4285 $topic->{'plural'} ? :
1059 6336 15034 if (my $p = $redstring->{'random_place'} // $redstring->{'bad_place'})
1073 15122 27618 unless $redstring->{$actor}{'name'}
1076 14020 13598 splural($redstring->{$actor}) ? :
1077 14020 13598 splural($redstring->{$actor}) ? :
1078 14020 13598 splural($redstring->{$actor}) ? :
1079 14020 13598 splural($redstring->{$actor}) ? :
1098 1778 25840 if (my $animal = $redstring->{'real_animal'} // $redstring->{'fake_animal'})
1102 6002 21616 if (my $place = $redstring->{'random_place'})
1106 8674 18944 if (my $topic = $redstring->{'topic'})
1109 3779 4895 $redstring->{$actor}{'plural'} ? :
1120 20667 703 if (@evidences == 2) { }
703 0 elsif (@evidences == 1) { }
1319 0 1 $redstring->{'shady_group'}{'plural'} ? :
1437 247 21 $animal ne 'fish' ? :
1561 101 137 $redstring->{'shady_group'}{'plural'} ? :
1562 123 115 $redstring->{'invention_plural'} ? :
1587 712 809 $redstring->{'protagonists'}{'plural'} ? :
1638 185 203 splural($redstring->{'protagonists'}) ? :
1679 124 133 $redstring->{'protagonists'}{'plural'} ? :
1686 118 155 $redstring->{'protagonists'}{'plural'} ? :
1693 97 145 $redstring->{'protagonists'}{'plural'} ? :
1732 654 822 $redstring->{'protagonists'}{'plural'} ? :
1772 677 906 $redstring->{'protagonists'}{'plural'} ? :
1773 677 906 $redstring->{'protagonists'}{'plural'} ? :
1787 640 868 $redstring->{'protagonists'}{'plural'} ? :
1967 658 897 $redstring->{'protagonists'}{'plural'} ? :
1994 563 900 $redstring->{'celebrity'}{'female'} ? :
1998 627 836 $redstring->{'protagonists'}{'plural'} ? :
2019 540 998 $redstring->{'celebrity'}{'female'} ? :
2034 7888 10165 if ($redstring->{'protagonists'} and not $redstring->{'antagonists'} and _RANDOM_((0, 1)))
2038 3996 3892 splural($redstring->{'antagonists'}) ? :
2055 21370 0 if $evidence
2058 686 20684 if $numerology
2097 63601 82805 /^(the )(.+)$/iu ? :
2100 93891 62475 ref $_ ? :
2107 38789 82488 if length $string >= 20
2109 805866 5298 /[A-Z]/u ? :
2121 7034 847766 if ($calcs{$key})
2125 7325 48 unless join($", @strings) =~ /$test/u
2131 694 81143 @$_ > 1 ? :
2133 686 20684 if (@wow)
2153 0 0 unless ($cancel)