Branch Coverage

blib/lib/Acme/ConspiracyTheory/Random.pm
Criterion Covered Total %
branch 160 166 96.3


line true false branch
17 54743 221535 ref $code eq 'CODE' ? :
143 202 32848 if $redstring->{'protagonists'} and $redstring->{'protagonists'}{'name'} eq $xx->{'name'} or $redstring->{'antagonists'} and $redstring->{'antagonists'}{'name'} eq $xx->{'name'}
148 2346 30502 if ($name =~ /ists$/u and not $name =~ /^the/u)
312 8 29 $food =~ /wine/u ? :
620 10817 112623 if (defined $a->{'splural'})
632 156 153 splural($redstring->{$actor}) ? :
634 3127 1547 if $redstring->{$actor}{'name'}
877 259 21139 if (my $c = $redstring->{'disease_cause'})
883 1453 19945 if (my $m = $redstring->{'misinformation'})
891 356 21042 if (my $auth = $redstring->{'authority'})
899 1022 20376 if (my $p = $redstring->{'myth_place'})
908 1655 19743 if (my $art = $redstring->{'artifact'})
917 2916 18482 if (my $proj = $redstring->{'shady_project'})
926 1437 19961 if (my $dl = $redstring->{'dark_lord'})
936 5355 16043 if (my $v = ($redstring->{'victim'} // $redstring->{'physicist'}) // $redstring->{'biologist'})
957 2807 18591 if (my $v = $redstring->{'physicist'} // $redstring->{'biologist'})
965 3484 17914 if (my $c = $redstring->{'celebrity'})
966 1257 2227 if ($c->{'female'}) { }
980 1850 19548 if (my $f = $redstring->{'fiction'})
987 83 90 splural($redstring->{'shady_group'}) ? :
996 285 1565 if (my $p = $redstring->{'random_place'})
1004 1662 19736 if (my $animal = $redstring->{'real_animal'} // $redstring->{'fake_animal'})
1018 447 20951 if (my $mc = $redstring->{'mind_control_device'})
1024 280 167 if ($mcp)
1037 900 20498 if (my $ft = $redstring->{'future_time'})
1045 489 20909 if (my $d = $redstring->{'disease'})
1055 248 21150 if (my $f = $redstring->{'food'})
1064 942 20456 if (my $chem = $redstring->{'chemicals'})
1073 3758 17640 if (my $r = $redstring->{'precious_resource'})
1075 171 3587 unless $redstring->{'shady_group'}{'name'}
1077 3758 7516 if ($redstring->{$_}{'name'})
1079 1677 2081 $redstring->{$_}{'plural'} ? :
1080 324 3434 $r =~ /s$/u ? :
1094 6521 14877 if (my $topic = $redstring->{'topic'})
1096 2510 4011 $topic->{'plural'} ? :
1109 6872 14526 if (my $p = $redstring->{'random_place'} // $redstring->{'bad_place'})
1124 14058 28738 unless $redstring->{$actor}{'name'}
1127 14609 14129 splural($redstring->{$actor}) ? :
1128 14609 14129 splural($redstring->{$actor}) ? :
1129 14609 14129 splural($redstring->{$actor}) ? :
1130 14609 14129 splural($redstring->{$actor}) ? :
1149 1815 26923 if (my $animal = $redstring->{'real_animal'} // $redstring->{'fake_animal'})
1153 6670 22068 if (my $place = $redstring->{'random_place'})
1157 8340 20398 if (my $topic = $redstring->{'topic'})
1160 3673 4667 $redstring->{$actor}{'plural'} ? :
1171 20744 654 if (@evidences == 2) { }
654 0 elsif (@evidences == 1) { }
1370 0 0 $redstring->{'shady_group'}{'plural'} ? :
1488 235 22 $animal ne 'fish' ? :
1612 89 123 $redstring->{'shady_group'}{'plural'} ? :
1613 67 145 $redstring->{'invention_plural'} ? :
1638 641 812 $redstring->{'protagonists'}{'plural'} ? :
1689 170 146 splural($redstring->{'protagonists'}) ? :
1730 93 125 $redstring->{'protagonists'}{'plural'} ? :
1737 104 157 $redstring->{'protagonists'}{'plural'} ? :
1744 111 162 $redstring->{'protagonists'}{'plural'} ? :
1783 607 837 $redstring->{'protagonists'}{'plural'} ? :
1784 607 837 $redstring->{'protagonists'}{'plural'} ? :
1785 607 837 $redstring->{'protagonists'}{'plural'} ? :
1801 740 704 if (_RANDOM_(1, 2) == 1)
1812 732 712 if (_RANDOM_(1, 2) == 1)
1823 369 1075 if ($group2 and $group3)
1837 634 803 $redstring->{'protagonists'}{'plural'} ? :
1877 652 772 $redstring->{'protagonists'}{'plural'} ? :
1878 652 772 $redstring->{'protagonists'}{'plural'} ? :
1892 658 814 $redstring->{'protagonists'}{'plural'} ? :
2072 604 838 $redstring->{'protagonists'}{'plural'} ? :
2099 502 921 $redstring->{'celebrity'}{'female'} ? :
2103 621 802 $redstring->{'protagonists'}{'plural'} ? :
2124 515 865 $redstring->{'celebrity'}{'female'} ? :
2139 7690 10743 if ($redstring->{'protagonists'} and not $redstring->{'antagonists'} and _RANDOM_((0, 1)))
2143 3879 3811 splural($redstring->{'antagonists'}) ? :
2160 21398 0 if $evidence
2163 715 20683 if $numerology
2202 67382 83179 /^(the )(.+)$/iu ? :
2205 94480 65999 ref $_ ? :
2212 39572 85905 if length $string >= 20
2214 845266 4997 /[A-Z]/u ? :
2226 7139 848781 if ($calcs{$key})
2230 7414 55 unless join($", @strings) =~ /$test/u
2236 731 84497 @$_ > 1 ? :
2238 715 20683 if (@wow)
2258 0 0 unless ($cancel)