Whateverable/query

## query
=.*“

## result.md

      
    Raw
  

              result.md
            
          
File
Code


JNTHN/cro
…/app.js :60205:
var keyPrefix = "$"; // Protect against keys like “__proto__”.


JNTHN/cro
…/app.js :66877:
var keyPrefix = "$", // Protect against keys like “__proto__”.


WARRINGD/Font-AFM
…/AFM.pm :399:
"quoteleft", "’" => "quoteright", "‚" => "quotesinglbase", "“" =>


WARRINGD/PDF-ISO_32000
…/Animation_styles.json :14:
        "Keyframe animations is driven linearly from beginning to end. This animation style results in a repetitive playthrough of the animation, such as in a walking motion.\nt = (m(t a - t 0) + r 0 ) % (r 1 - r 0)\np = (r 1 - r 0) / m\nThe “%” symbol indicates the modulus operator."


WARRINGD/PDF-ISO_32000
…/Rectilinear_measure_additional_entries.json :13:
        "(Required) A text string expressing the scale ratio of the drawing in the region corresponding to this dictionary. Universally recognized un…


AlexDaniel/orgsleep
…/orgsleep :94:
                 stroke => $color, points => “$x,$y”


AlexDaniel/orgsleep
…/orgsleep :103:
                 stroke => $color, points => “$x1,$y1 $x2,$y2”


AlexDaniel/orgsleep
…/orgsleep :109:
                 stroke => $color, points => “$x1,$y1 $x2,$y2”


AlexDaniel/orgsleep
…/orgsleep :164:
        my $text = sprintf “%02d:00”, $_;


AlexDaniel/orgsleep
…/orgsleep :261:
        my $color = $COLOR-HEAT ~ sprintf “%02x”, $ratio × 0xFF;


AlexDaniel/orgsleep
…/orgsleep :430:
    $image = Image::Magick.new: size=>“{$width}x{$height}”;


gfldex/perl6-git-config
…/Config.pm6 :21:
    my $parsed = Config.parse($cfg-text) // []; # or fail 'Failed to parse „~/.gitconfig“.';


gfldex/perl6-meta6-bin
…/bin.pm6 :362:
    my $curl = Proc::Async::Timeout.new('curl', '--silent', '-u', $github-user, '-X', 'POST', „https://api.github.com/repos/$owner/$repo/forks“);


gfldex/perl6-meta6-bin
…/bin.pm6 :382:
    my $curl = Proc::Async::Timeout.new('curl', '--silent', '-u', $github-user, '-X', 'GET', „https://api.github.com/repos/$owner/$repo“);


gfldex/perl6-meta6-bin
…/bin.pm6 :400:
    my $curl = Proc::Async::Timeout.new('curl', '--silent', '--user', $github-user, '--request', 'POST', '--data', to-json({ title => $title, body => $body, head => $head, base => $base}), „https://api.github.com/repos/$owner/$repo/pulls“);


gfldex/perl6-meta6-bin
…/bin.pm6 :424:
        my $curl = Proc::Async::Timeout.new('curl', '--silent', '-u', $github-user, '-X', 'GET', „https://api.github.com/repos/$owner/$repo/issues$state“);


matiaslina/perl6-matrix-client
…/client.pod6 :158:
=item visibility: C<“public”> or C<“private”>.


matiaslina/perl6-matrix-client
…/client.pod6 :163:
=item preset: C<“private_chat”>, C<“trusted_private_chat”> or C<“public_chat”>.


perl6/Blin
…/blin.p6 :289:
            my $str    = “⏳ {$total - @undone} out of $total modules processed”;


perl6/Blin
…/blin.p6 :357:
            my $line = “{.name} – $result”;


perl6/Blin
…/blin.p6 :359:
                $line ~= “, Bisected: {.bisected}”;


perl6/Blin
…/blin.p6 :411:
    $dot ~= “    "{$module.handle}" [color=$color];\n”;


perl6/Blin
…/blin.p6 :414:
        $dot ~= “    "{$module.handle}" -> "{.handle}";\n”;


perl6/Blin
…/blin.p6 :416:
    $dot ~= “\n”;


perl6/Blin
…/blin.p6 :420:
    spurt $dot-path, “digraph \{\n    rankdir = BT;\n” ~ $dot ~ “\n}”;


perl6/doc
…/faq.pod6 :774:
=item Emphasis on composability and lexical scoping to prevent “action at a distance”; e.g., imports are always lexically scoped.


perl6/doc
…/examples-compilation.t :123:
    my $msg = "$eg<file> chunk $eg<count> starts with “" ~ starts-with($eg<contents>) ~ "” compiles";


perl6/p6-sake
…/Task.pm6 :47:
            my $msg = “Task $task.name() depends on $_ but no such task was found”;


perl6/p6-sake
…/31-customfile.t :12:
             <sake --file=customfile foo>, :out(“hello\n”)


perl6/p6-sake
…/SakeTester.pm6 :22:
             PATH     => “{$*CWD.add: ‘bin’}:{$env<PATH>     // ‘’}”,


perl6/p6-sake
…/SakeTester.pm6 :23:
             PERL6LIB => “{$*CWD.add: ‘lib’},{$env<PERL6LIB> // ‘’}”,


perl6/whateverable
…/Whateverable.pm6 :161:
        my $gists-path = “$CONFIG<builds-location>/tist/$nick”;


perl6/whateverable
…/Bisection.pm6 :76:
    my $log = @bisect-log.join(“\n”);


perl6/whateverable
…/Bits.pm6 :70:
    $answer ~= “$days day{$days ≠ 1 ?? ‘s’ !! ‘’} and ” if $days;


perl6/whateverable
…/Bits.pm6 :71:
    $answer ~= “≈$hours hour{$hours ≠ 1 ?? ‘s’ !! ‘’}”;


perl6/whateverable
…/Builds.pm6 :96:
    my $link = “{$CONFIG<mothership>}/$full-commit-hash?type=$backend&arch=$arch”;


perl6/whateverable
…/Builds.pm6 :132:
    my $archive     = “$CONFIG<archives-location>/$backend/$full-commit-hash.zst”.IO;


perl6/whateverable
…/Builds.pm6 :133:
    my $archive-lts = “$CONFIG<archives-location>/$backend/$full-commit-hash”.IO;


perl6/whateverable
…/Configurable.pm6 :60:
    my $table = “| Name | Value |\n|---|---|\n”


perl6/whateverable
…/Messages.pm6 :89:
            $href ~= “L$<line>”;


perl6/whateverable
…/Processing.pm6 :38:
    $output ~= “ «exit code = $_<exit-code>»” if .<exit-code> ≠ 0;


perl6/whateverable
…/Processing.pm6 :39:
    $output ~= “ «exit signal = {Signal($_<signal>)} ($_<signal>)»” if .<signal> ≠ 0;


perl6/whateverable
…/Running.pm6 :33:
    my $archive-path  = “$CONFIG<archives-location>/$backend/$full-commit-hash.zst”;


perl6/whateverable
…/Running.pm6 :34:
    my $archive-link  = “$CONFIG<archives-location>/$backend/$full-commit-hash”;


perl6/whateverable
…/Running.pm6 :109:
    $regex = “m⦑ $regex ⦒”;


perl6/whateverable
…/Running.pm6 :111:
    my $sep   = $complex ?? ｢“\0\0”｣ !! ｢“\0”｣;


perl6/whateverable
…/Running.pm6 :112:
    my $magic = “INIT \$*ARGFILES.nl-in = $sep; INIT \$*OUT.nl-out = $sep;”


perl6/whateverable
…/Running.pm6 :125:
    $output ~= “ «exit code = $result<exit-code>»” if $result<exit-code> ≠ 0;


perl6/whateverable
…/Running.pm6 :126:
    $output ~= “ «exit signal = {Signal($result<signal>)} ($result<signal>)»” if $result<signal> ≠ 0;


perl6/whateverable
…/Running.pm6 :128:
    my @elems = $output.split: ($complex ?? “\0\0” !! “\0”), :skip-empty;


perl6/whateverable
…/fetch-irc.p6 :19:
        my $url = “$URL/{$channel.substr: 1}/$date”;


perl6/whateverable
…/long-term-storage.p6 :27:
my \BUILDS-LOCATION   = “/tmp/whateverable/{DIR-BASE}”;


perl6/whateverable
…/long-term-storage.p6 :28:
my \ARCHIVES-LOCATION = “{WORKING-DIRECTORY}/data/builds/{DIR-BASE}”.IO.absolute;


perl6/whateverable
…/long-term-storage.p6 :29:
my \REPO-LATEST       = “/tmp/whateverable/{DIR-BASE}-repo”;


perl6/whateverable
…/long-term-storage.p6 :33:
my @git-latest = ‘git’, ‘--git-dir’, “{REPO-LATEST}/.git”, ‘--work-tree’, REPO-LATEST;


perl6/whateverable
…/long-term-storage.p6 :61:
        my $archive-path = “{ARCHIVES-LOCATION}/$_.zst”;


perl6/whateverable
…/long-term-storage.p6 :62:
        my $build-path = “{BUILDS-LOCATION}/$_”;


perl6/whateverable
…/long-term-storage.p6 :78:
    my $large-archive-path = “{ARCHIVES-LOCATION}/$sha.lrz”;


perl6/whateverable
…/Benchable.p6 :50:
            %stats<err> = “«run failed, exit code = $result<exit-code>, exit signal = $result<signal>»”;


perl6/whateverable
…/Benchable.p6 :67:
        ~ @code.kv.map({ $^k => “ => sub \{ $^v \} ” }).join(‘,’) ~ ‘;’


perl6/whateverable
…/Benchable.p6 :71:
    %ENV<PERL6LIB> = “{LIB-DIR}/perl6-bench/lib,{LIB-DIR}/Perl6-Text--Table--Simple/lib”;


perl6/whateverable
…/Benchable.p6 :155:
        my $title = “$config $code”.trans: ｢"｣ => ｢\"｣;


perl6/whateverable
…/Benchable.p6 :158:
        my @labels = @valid-commits.map: { “$_ ({ .<mean max stddev>.map({ sprintf “%.2f”, $_ }).join: ‘,’ with %times{$_} })” };


perl6/whateverable
…/Benchable.p6 :173:
    my $short-str = ‘¦’ ~ @commits.map({ “$_: ” ~ ‘«’ ~ (%times{$_}<err> // %times{$_}<min> // %times{$_}) ~ ‘»’ }).join:  ‘ ¦’;


perl6/whateverable
…/Benchable.p6 :174:
    my $long-str  = ‘¦’ ~ @commits.map({ “$_: ” ~ ‘«’ ~ (%times{$_}<err> // %times{$_}<min> // %times{$_}) ~ ‘»’ }).join: “\n¦”;


perl6/whateverable
…/Bisectable.p6 :178:
                                                ‘result’  => colorstrip(“$init-result<output>\n$bisect-output”), },


perl6/whateverable
…/Bloatable.p6 :82:
            %cur<error> = “Cannot find revision $commit”;


perl6/whateverable
…/Bloatable.p6 :84:
            %cur<error> ~= “ (did you mean “{get-short-commit get-similar $commit, @options, repo => $CONFIG<moarvm>}”?)”


perl6/whateverable
…/Bloatable.p6 :89:
        %cur<short-commit> ~= “({get-short-commit %cur<full-commit>})” if $commit eq ‘HEAD’;


perl6/whateverable
…/Bloatable.p6 :91:
            my $filename = “result-{(1 + %files).fmt: ‘%05d’}”;


perl6/whateverable
…/Bloatable.p6 :92:
            my $result = “Comparing %prev<short-commit> → %cur<short-commit>\n”;


perl6/whateverable
…/Bloatable.p6 :94:
                $result ~= “Skipping because of the error with %prev<short-commit>:\n”;


perl6/whateverable
…/Bloatable.p6 :97:
                $result ~= “Skipping because of the error with %cur<short-commit>:\n”;


perl6/whateverable
…/Bloatable.p6 :100:
                $result ~= “Skipping because diffing the same commit is pointless.”;


perl6/whateverable
…/Committable.p6 :70:
    $short-commit ~= “({get-short-commit $full-commit})” if $commit eq ‘HEAD’;


perl6/whateverable
…/Committable.p6 :73:
        return $short-commit R=> ‘Cannot find this revision (did you mean “’ ~


perl6/whateverable
…/Committable.p6 :84:
        $code = “$config $code”;


perl6/whateverable
…/Committable.p6 :109:
            $l ~= $l ?? “,$sha” !! $sha;


perl6/whateverable
…/Committable.p6 :113:
    my $long-str  = ‘¦’ ~ @outputs.map({ “«{limited-join %shas{$_}}»:\n$_” }).join: “\n¦”;


perl6/whateverable
…/Coverable.p6 :58:
        $code = “$config $code”;


perl6/whateverable
…/Coverable.p6 :78:
        $output ~= “ (did you mean “{get-short-commit get-similar $commit, @options}”?)”


perl6/whateverable
…/Coverable.p6 :82:
        my $log = $*TMPDIR.add: “coverage_{now.to-posix[0]}.log”; # TODO proper temp file name


perl6/whateverable
…/Coverable.p6 :95:
            $output = “Cannot test this commit ($output)”


perl6/whateverable
…/Coverable.p6 :97:
            $output ~= “ «exit code = $result<exit-code>»” if $result<exit-code> ≠ 0;


perl6/whateverable
…/Coverable.p6 :98:
            $output ~= “ «exit signal = {Signal($result<signal>)} ($result<signal>)»” if $result<signal> ≠ 0


perl6/whateverable
…/Coverable.p6 :102:
    $short-commit ~= “({get-short-commit $full-commit})” if $commit eq ‘HEAD’;


perl6/whateverable
…/Coverable.p6 :108:
    my $short-str = “¦$short-commit: «$output»”; # TODO no need for short string (we gist it anyway)


perl6/whateverable
…/Coverable.p6 :109:
    my $long-str  = “¦$full-commit: «$output»”; # TODO simpler output perhaps?


perl6/whateverable
…/Coverable.p6 :117:
    my $cover-report = “| File | Code |\n|--|--|\n”;


perl6/whateverable
…/Coverable.p6 :118:
    my $url = “https://github.com/rakudo/rakudo/blob/$full-commit”;


perl6/whateverable
…/Coverable.p6 :121:
            my $ln = ‘L’ ~ ($l ~~ Int ?? $l !! “$l.min()-L$l.max()”);


perl6/whateverable
…/Coverable.p6 :125:
                $cover-report ~= “| $fname#$ln |”;


perl6/whateverable
…/Coverable.p6 :126:
                my $sed-range = “{$l.min},{$l.max}p”;


perl6/whateverable
…/Coverable.p6 :128:
                my $proc = run :out, :cwd($CONFIG<rakudo>), <git show>, “$full-commit:$fname”;


perl6/whateverable
…/Coverable.p6 :132:
                $code .= subst: :g, “\n”, ‘```<br>```’; # TODO multiline code blocks using github markdown?


perl6/whateverable
…/Coverable.p6 :134:
                $cover-report ~= “ ```$code``` |\n”; # TODO close properly (see how many ``` are there already)


perl6/whateverable
…/Coverable.p6 :136:
                $cover-report ~= “| $fn#$ln | |\n”; # TODO write “N/A” instead of having an empty cell?


perl6/whateverable
…/Evalable.p6 :82:
        $output = “Cannot test $full-commit ($output)”


perl6/whateverable
…/Evalable.p6 :84:
        $extra ~= “(exit code $result<exit-code>) ”     if $result<exit-code> ≠ 0;


perl6/whateverable
…/Evalable.p6 :85:
        $extra ~= “(signal {Signal($result<signal>)}) ” if $result<signal>    ≠ 0


perl6/whateverable
…/Evalable.p6 :88:
    my $reply-start = “rakudo-moar $short-commit: OUTPUT: «$extra”;


perl6/whateverable
…/Evalable.p6 :103:
    my $gist = ($extra ?? “$extra\n” !! ‘’) ~ colorstrip $output;


perl6/whateverable
…/Greppable.p6 :43:
    my ($path, $line-number, $text) = $line.split: “\x0”, 3;


perl6/whateverable
…/Greppable.p6 :45:
    my $start = “perl6-all-modules/$path”; # Not a module, unless…


perl6/whateverable
…/Greppable.p6 :51:
        my $commit    = %commits{“$source/$repo”};


perl6/whateverable
…/Greppable.p6 :55:
                my $dotgitrepo = “$ECO-PATH/$source/$repo/.gitrepo”.IO;


perl6/whateverable
…/Greppable.p6 :71:
        $short-path = “…/$short-path”;# if $long-path ne $short-path;


perl6/whateverable
…/Greppable.p6 :72:
        $start = “{$repo}<br>``{$short-path}`` :*$line-number*:”;


perl6/whateverable
…/Greppable.p6 :88:
    my $gist = $out.map({ process-ls-line $_ }).join(“\n”);


perl6/whateverable
…/Greppable.p6 :104:
    my $gist = “| File | Code |\n|--|--|\n”;


perl6/whateverable
…/Greppable.p6 :106:
        $gist ~= $result<output>.split(“\n”).map({process-grep-line $_, %commits}).join: “\n”;


perl6/whateverable
…/Notable.p6 :26:
my $db = %*ENV<TESTABLE> ?? $*TMPDIR.add(“notable{time}”) !! ‘data/notes’.IO;


perl6/whateverable
…/Quotable.p6 :49:
    my %channels = @processed.map: {“result-#{.<channel>}.md” => .<gist>};


perl6/whateverable
…/Quotable.p6 :51:
    my $peek = $count > 1 ?? “$count messages ($date-min⌁$date-max)”


perl6/whateverable
…/Quotable.p6 :61:
        my ($text, $id, $date) = .split: “\0”;


perl6/whateverable
…/Releasable.p6 :43:
    my $last-release = to-full-commit chomp slurp “$CONFIG<rakudo>/VERSION”;


perl6/whateverable
…/Releasable.p6 :61:
    $answer ~= “≈$days day{$days ≠ 1 ?? ‘s’ !! ‘’} and ” if $days;


perl6/whateverable
…/Releasable.p6 :62:
    $answer ~= “≈$hours hour{$hours ≠ 1 ?? ‘s’ !! ‘’}”;


perl6/whateverable
…/Releasable.p6 :67:
    my $guide = slurp “$CONFIG<rakudo>/docs/release_guide.pod”;


perl6/whateverable
…/Releasable.p6 :133:
    $summary //= “{@git-commits - @unlogged} out of {+@git-commits} commits logged”;


perl6/whateverable
…/Releasable.p6 :176:
        $summary ~= “{+@tickets} blocker{@tickets ≠ 1 ?? ‘s’ !! ‘’}”;


perl6/whateverable
…/Releasable.p6 :186:
        “<a href="$url">” ~ $id ~ “</a> {html-escape $title}\n”


perl6/whateverable
…/Releasable.p6 :195:
    $changelog  //= slurp “$CONFIG<rakudo>/docs/ChangeLog”;


perl6/whateverable
…/Releasable.p6 :204:
            $changelog = $wiki ~ “\n” ~ $changelog;


perl6/whateverable
…/Releasable.p6 :214:
        $answer       = “Next release $time-left. ”;


perl6/whateverable
…/Releasable.p6 :219:
    $answer ~= “$_. ” with %blockers<summary>;


perl6/whateverable
…/Releasable.p6 :221:
    $answer ~= “ (⚠ {+%stats<warnings>} warnings)” if %stats<warnings>;


perl6/whateverable
…/Releasable.p6 :229:
    my $warnings = .join(“\n”) with %stats<warnings>;


perl6/whateverable
…/Releasable.p6 :239:
        my $unreviewed = join “\n”, ($descs.out.lines Z $links.out.lines).map:


perl6/whateverable
…/Releasable.p6 :250:
    my $text = “Next release $time-left”;


perl6/whateverable
…/Reportable.p6 :54:
    my $list = report-dirs.reverse.map(*.basename).join: “\n”;


perl6/whateverable
…/Reportable.p6 :91:
    my $report = join “\n”, gather analyze $from-dir, $to-dir;


perl6/whateverable
…/Reportable.p6 :202:
        my $link  = “<a href="{.<html_url>}">{sprintf ‘% 9s’, .<uni-id>}</a>”;


perl6/whateverable
…/Reportable.p6 :203:
        my $str   = “$link $subject”;


perl6/whateverable
…/Shareable.p6 :38:
    my $file = “/tmp/whateverable/shareable/$backend/$full-commit.tar.gz”.IO;


perl6/whateverable
…/Shareable.p6 :59:
        my $backend = $type; # “backend” is used internally but sounds weird


perl6/whateverable
…/Shareable.p6 :68:
        my $archive-path  = “$CONFIG<archives-location>/$backend/$full-commit.zst”;


perl6/whateverable
…/Shareable.p6 :69:
        my $archive-link  = “$CONFIG<archives-location>/$backend/$full-commit”;


perl6/whateverable
…/Squashable.p6 :99:
    my $when = “($next UTC{utc-hour $TIMEZONE-RANGE.min}⌁”


perl6/whateverable
…/Squashable.p6 :114:
    %files<~log> = slurp $PATH.add(“$next/log”) if $PATH.add(“$next/log”).e;


perl6/whateverable
…/Squashable.p6 :116:
        my %state = from-json slurp $PATH.add(“$next/state”);


perl6/whateverable
…/Squashable.p6 :119:
                %files<stats> ~= “\n{.key}:\n”;


perl6/whateverable
…/Squashable.p6 :122:
                    %files<stats> ~= “├ $prev\n” with $prev;


perl6/whateverable
…/Squashable.p6 :123:
                    LAST %files<stats> ~= “└ $prev\n”;


perl6/whateverable
…/Squashable.p6 :124:
                    $prev = “{.key}: {.value}”


perl6/whateverable
…/Squashable.p6 :127:
                %files<stats> ~= “\n{.key}: {.value}\n”;


perl6/whateverable
…/Squashable.p6 :168:
        my $text = “Webhook for {$data<repository><full_name>} is now ”


perl6/whateverable
…/Squashable.p6 :190:
    %state = from-json slurp $PATH.add(“$next-event/state”)


perl6/whateverable
…/Squashable.p6 :196:
    $text = “{‘🍕’ x $pizza} $text”;


perl6/whateverable
…/Squashable.p6 :237:
            my $title  = ‘“’ ~ shorten($data<issue><title>, 50) ~ ‘”’;


perl6/whateverable
…/Squashable.p6 :256:
            my $title  = ‘“’ ~ shorten($data<pull_request><title>, 50) ~ ‘”’;


perl6/whateverable
…/Squashable.p6 :262:
            my $title  = ‘“’ ~ shorten($data<pull_request><title>, 50) ~ ‘”’;


perl6/whateverable
…/Statisfiable.p6 :49:
        %stats{$_} = “{STATS-LOCATION}/$_”.IO.e


perl6/whateverable
…/Statisfiable.p6 :65:
        my $file = “$_/share/perl6/runtime/CORE.setting.moarvm”.IO;


perl6/whateverable
…/Statisfiable.p6 :84:
        my $file = “$_/lib/libmoar.so”.IO;


perl6/whateverable
…/Statisfiable.p6 :132:
    my $msg-response = @results.reverse.map(*.kv.join: ‘ ’).join: “\n”;


perl6/whateverable
…/Undersightable.p6 :112:
#    url-pattern    => {“http://rakudo.org/downloads/rakudo/rakudo-$\_.tar.gz”},


perl6/whateverable
…/Undersightable.p6 :113:
#    path-pattern   => {“data/undersightable/rakudo/rakudo-$_.tar.gz”},


perl6/whateverable
…/Undersightable.p6 :119:
    url-pattern    => {“https://rakudo.perl6.org/downloads/rakudo/rakudo-$\_.tar.gz”},


perl6/whateverable
…/Undersightable.p6 :120:
    path-pattern   => {“data/undersightable/rakudo/rakudo-$_.tar.gz”},


perl6/whateverable
…/Undersightable.p6 :126:
#    url-pattern    => {“http://rakudo.org/downloads/nqp/nqp-$\_.tar.gz”},


perl6/whateverable
…/Undersightable.p6 :127:
#    path-pattern   => {“data/undersightable/nqp/nqp-$_.tar.gz”},


perl6/whateverable
…/Undersightable.p6 :133:
    url-pattern    => {“https://rakudo.perl6.org/downloads/nqp/nqp-$\_.tar.gz”},


perl6/whateverable
…/Undersightable.p6 :134:
    path-pattern   => {“data/undersightable/nqp/nqp-$_.tar.gz”},


perl6/whateverable
…/Undersightable.p6 :140:
    url-pattern    => {“https://moarvm.org/releases/MoarVM-$\_.tar.gz”},


perl6/whateverable
…/Undersightable.p6 :141:
    path-pattern   => {“data/undersightable/moarvm/MoarVM-$_.tar.gz”},


perl6/whateverable
…/Undersightable.p6 :287:
        my $peek     = “{s $errors, ‘error’}, {s $warnings, ‘warning’}”;


perl6/whateverable
…/Undersightable.p6 :288:
        my $gist     = join “\n”, @results;


perl6/whateverable
…/Undersightable.p6 :289:
        (‘’ but FileStore(‘result.md’ => $gist)) but PrettyLink({“$peek: $_”})


perl6/whateverable
…/Unicodable.p6 :93:
    my $gist = @all.map({self.get-description: $_}).join: “\n”;


perl6/whateverable
…/Unicodable.p6 :94:
    my $link-msg = { “{+@all} characters in total{self.get-preview: @all}: $_” };


perl6/whateverable
…/Unicodable.p6 :155:
        my $file = write-code “say join “\c[31]”, (0..0x10FFFF).grep:\n” ~ $query;


perl6/whateverable
…/Unicodable.p6 :166:
        $output ~= “ «exit code = $result<exit-code>»” if $result<exit-code> ≠ 0;


perl6/whateverable
…/Unicodable.p6 :167:
        $output ~= “ «exit signal = {Signal($result<signal>)} ($result<signal>)»” if $result<signal> ≠ 0;


perl6/whateverable
…/Unicodable.p6 :198:
        $answer ~= sprintf “\n### %s\n”, $category.key;


perl6/whateverable
…/Unicodable.p6 :200:
        $answer ~= .fmt: ‘ %-25s |’ for @query.map: -> $char { “Value: {&escape(self.sanify: $char)}” };


perl6/whateverable
…/Unicodable.p6 :201:
        $answer ~= “\n”;


perl6/whateverable
…/Unicodable.p6 :202:
        $answer ~= “|{‘-’ x 57}|”;


perl6/whateverable
…/Unicodable.p6 :203:
        $answer ~= “{‘-’ x 27}|” x @query;


perl6/whateverable
…/Unicodable.p6 :204:
        $answer ~= “\n”;


perl6/whateverable
…/Unicodable.p6 :210:
            $answer ~= “\n”;


perl6/whateverable
…/build.p6 :44:
my \REPO-LATEST       = “/tmp/whateverable/{DIR-BASE}-repo”;


perl6/whateverable
…/build.p6 :47:
my \REPO-CURRENT      = “{WORKING-DIRECTORY}/data/{DIR-BASE}”.IO.absolute;


perl6/whateverable
…/build.p6 :49:
my \ARCHIVES-LOCATION = “{WORKING-DIRECTORY}/data/builds/{DIR-BASE}”.IO.absolute;


perl6/whateverable
…/build.p6 :50:
my \BUILDS-LOCATION   = “/tmp/whateverable/{DIR-BASE}”;


perl6/whateverable
…/build.p6 :51:
my \BUILD-LOCK        = “{BUILDS-LOCATION}/build-lock”;


perl6/whateverable
…/build.p6 :53:
my \GIT-REFERENCE     = “{WORKING-DIRECTORY}/data”.IO.absolute;


perl6/whateverable
…/build.p6 :78:
my @git-latest  = ‘git’, ‘--git-dir’, “{REPO-LATEST}/.git”, ‘--work-tree’, REPO-LATEST;


perl6/whateverable
…/build.p6 :110:
    my $build-path   = “{BUILDS-LOCATION}/$commit”.IO.absolute;


perl6/whateverable
…/build.p6 :112:
    my $archive-path = “{ARCHIVES-LOCATION}/$commit.zst”.IO.absolute;


perl6/whateverable
…/build.p6 :117:
    my @git-temp = ‘git’, ‘--git-dir’, “$temp-folder/.git”, ‘--work-tree’, $temp-folder;


perl6/whateverable
…/build.p6 :130:
        my $configure-log-fh = open :w, “$log-path/configure.log”;


perl6/whateverable
…/build.p6 :131:
        my $configure-err-fh = open :w, “$log-path/configure.err”;


perl6/whateverable
…/build.p6 :159:
        my $make-log-fh = open :w, “$log-path/make.log”;


perl6/whateverable
…/build.p6 :160:
        my $make-err-fh = open :w, “$log-path/make.err”;


perl6/whateverable
…/build.p6 :173:
        my $install-log-fh = open :w, “$log-path/make-install.log”;


perl6/whateverable
…/build.p6 :174:
        my $install-err-fh = open :w, “$log-path/make-install.err”;


perl6/whateverable
…/benchable.t :11:
$t.common-tests: help => “Like this: {$t.bot-nick}: f583f22,HEAD ”


perl6/whateverable
…/bisectable.t :11:
$t.common-tests: help => “Like this: bisectable6: old=2015.12 new=HEAD exit 1 if (^∞).grep(\{ last })[5] // 0 == 4”;


perl6/whateverable
…/bloatable.t :12:
$t.common-tests: help => “Like this: {$t.bot-nick}: d=compileunits 292dc6a,HEAD”;


perl6/whateverable
…/committable.t :11:
$t.common-tests: help => “Like this: {$t.bot-nick}: f583f22,HEAD say ‘hello’; say ‘world’”;


perl6/whateverable
…/coverable.t :12:
$t.common-tests: help => “Like this: {$t.bot-nick}: f583f22 grep=SETTING:: say ‘hello’; say ‘world’”;


perl6/whateverable
…/evalable.t :12:
$t.common-tests: help => “Like this: {$t.bot-nick}: say ‘hello’; say ‘world’”;


perl6/whateverable
…/greppable.t :12:
$t.common-tests: help => “Like this: {$t.bot-nick}: password”;


perl6/whateverable
…/greppable.t :59:
             %(‘result.md’ => /“\r”/));


perl6/whateverable
…/Testable.pm6 :41:
                                         “--listen=$host”, “--ports=$port”;


perl6/whateverable
…/Testable.pm6 :96:
        my $gists-path = “/tmp/whateverable/tist/$!bot-nick”;


perl6/whateverable
…/Testable.pm6 :123:
            my $path = “/tmp/whateverable/tist/$!bot-nick/$file”;


perl6/whateverable
…/Testable.pm6 :135:
        my $logfile = sprintf “%s_uptime_%04d-%02d-%02d_%02d%02d.log”, $.bot.lc,


perl6/whateverable
…/nativecallable.t :12:
$t.common-tests: help => “Like this {$t.bot-nick}: <some C definition>”;


perl6/whateverable
…/notable.t :11:
$t.common-tests: help => “Like this: {$t.bot-nick}: weekly rakudo is now 10x faster”;


perl6/whateverable
…/quotable.t :12:
$t.common-tests: help => “Like this: {$t.bot-nick}: /^ ‘bisect: ’ /”;


perl6/whateverable
…/quotable.t :48:
    my @tracked-channels = dir ‘data/irc’, test => { .starts-with(‘#’) && “data/irc/$_”.IO.d };


perl6/whateverable
…/quotable.t :52:
        my $exists = “$_/{DateTime.now.earlier(:2days).Date}”.IO.e;


perl6/whateverable
…/releasable.t :13:
$t.common-tests: help => “status | status link”;


perl6/whateverable
…/releasable.t :40:
sub tag-last($tag-name, $new-section = “New in {$tag-name + 0.01}”  #← hahaha


perl6/whateverable
…/releasable.t :56:
    my $release-guide = “=head2 Planned future releases\n\n… … …\n\n”


perl6/whateverable
…/releasable.t :62:
    my $log-entry = $log ~~ Bool ?? “    + $message [$sha]\n” !! $log;


perl6/whateverable
…/statisfiable.t :12:
$t.common-tests: help => “Available stats: core (CORE.setting size), install (size of the installation), libmoar (libmoar.so size)”;


spitsh/spitsh
…/Grammar.pm6 :717:
        $<str>=<.wrap: '“','”', 'double-quoted string', token {


spitsh/spitsh
…/Grammar.pm6 :718:
            <R=.LANG('Quote-qq',:opener('“'),:closer('”'),:tweaks<curlies>)>


spitsh/spitsh
…/Docker.sp :147:
                '-c=LABEL ' ~ (“{.key}="{.value}"” for @labels).join(" ")


spitsh/spitsh
…/junctions.t :70:
    $y ||= “foo$glarb"\$glarb}”;


tony-o/perl6-data-dump
…/Dump.pm6 :85:
      $out ~= “{$space}{val($obj.perl // '<undef>')}\.{what($what)} :absolute("{$obj.absolute}")\n”;


tony-o/perl6-html-parser-xml
…/advent.html :740:
<p>Well, starting small is always good. Come to the IRC channel and ask for “low hanging fruit”. Check out <a href="http://rakudo.org/tickets/…