Skip to content

Instantly share code, notes, and snippets.

@Whateverable

Whateverable/query

Created February 25, 2018 07:12
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save Whateverable/576bc17fe1eb2c081819a4e13e4a7f26 to your computer and use it in GitHub Desktop.
Save Whateverable/576bc17fe1eb2c081819a4e13e4a7f26 to your computer and use it in GitHub Desktop.
Download ZIP
greppable6
Raw
query
« .* »
Raw
result.md
File Code
TYIL/App-Assixt
…/Man.pm6 :42:		 run « a2x -f manpage {$verbose ?? "-v" !! ""} {$source.IO.path} »;
TYIL/App-Assixt
…/Man.pm6 :45:		 run « gzip $page »;
TYIL/App-Assixt
…/Depend.pm6 :23:		 my $zef = run « zef --cpan install $module »;
TYIL/App-Assixt
…/Dist.pm6 :44:		 my $tar-version-cmd = run « tar --version », :out;
TYIL/App-Assixt
…/Dist.pm6 :49:		 when "1.27.1" { @tar-flags = « --transform $transform --exclude-vcs --exclude=.[^/]* » }
TYIL/App-Assixt
…/Dist.pm6 :50:		 default { @tar-flags = « --transform $transform --exclude-vcs --exclude-vcs-ignores --exclude=.[^/]* » }
TYIL/App-Assixt
…/Dist.pm6 :62:		 my $list = run « tar tf $output », :out;
TYIL/App-Assixt
…/Test.pm6 :9:		 run « prove -e "perl6 -Ilib" »
TYIL/App-Assixt
…/Upload.pm6 :48:		 run « tar xzf $dist -C $tempdir »;
TYIL/App-Cpan6
…/Man.pm6 :39:		 run « a2x -f manpage {$verbose ?? "-v" !! ""} {$source.IO.path} »;
TYIL/App-Cpan6
…/Man.pm6 :40:		 run « gzip "$page" »;
TYIL/App-Cpan6
…/Bump.pm6 :32:		 my $git-cmd = run « git status --short », :out;
TYIL/App-Cpan6
…/Bump.pm6 :54:		 run « git add META6.json »;
TYIL/App-Cpan6
…/Bump.pm6 :55:		 run « git commit -m "Bump version to {%meta<version>}" »;
TYIL/App-Cpan6
…/Bump.pm6 :56:		 run « git tag "v{%meta<version>}" »;
TYIL/App-Cpan6
…/Depend.pm6 :23:		 my $zef = run « zef --cpan install $module »;
TYIL/App-Cpan6
…/Dist.pm6 :46:		 my $list = run « tar --list -f $output », :out;
TYIL/App-Cpan6
…/New.pm6 :82:		 run « git init »;
TYIL/App-Cpan6
…/New.pm6 :83:		 run « git add . »;
TYIL/App-Cpan6
…/New.pm6 :84:		 run « git commit -m "Initial commit" » or say "Git commit failed!";
TYIL/App-Cpan6
…/Test.pm6 :9:		 run « prove -e "perl6 -Ilib" »
TYIL/App-Cpan6
…/Upload.pm6 :45:		 run « tar xzf $dist -C $tempdir »;
WARRINGD/PDF-Class
…/OutlineItem.pm :26:		 my enum OutlineFlag is export(:OutlineFlag) « :Italic(1) :Bold(2) »;
WARRINGD/PDF-Class
…/Pattern.pm :22:		 my enum PatternTypes is export(:PatternTypes) « :Tiling(1) :Shading(2) »;
cedric-vincent/kains
…/01-basic.t :31:		 is App::Kains::start(« sh -c 'exit 123' »), 123, 'execute a shell';
cedric-vincent/kains
…/01-basic.t :33:		 is App::Kains::start(« -- sh -c 'exit 123' »), 123, 'use -- option';
cedric-vincent/kains
…/01-basic.t :36:		 is App::Kains::start(« $_ /usr/bin/true /usr/bin/false /usr/bin/false »), 0, "use $_ option"
cedric-vincent/kains
…/01-basic.t :40:		 is App::Kains::start(« $_ / true »), 0, "use $_ option"
cedric-vincent/kains
…/01-basic.t :44:		 is App::Kains::start(« $_ /dev true »), 0, "use $_ option"
cedric-vincent/kains
…/01-basic.t :48:		 is App::Kains::start(« $_ /dev sh -c 'pwd | grep -qx /dev' »), 0, "use $_ option"
cedric-vincent/kains
…/01-basic.t :52:		 is App::Kains::start(« $_ sh -c 'id -u | grep -qx 0' »), 0, "use $_ option";
cedric-vincent/kains
…/01-basic.t :53:		 is App::Kains::start(« $_ sh -c 'id -g | grep -qx 0' »), 0, "use $_ option";
cedric-vincent/kains
…/01-basic.t :57:		 is App::Kains::start(« $_ true' »), 0, "use $_ option";
cedric-vincent/kains
…/01-basic.t :58:		 is App::Kains::start(« $_ true' »), 0, "use $_ option";
cedric-vincent/kains
…/01-basic.t :62:		 is App::Kains::start(« $_ sh -c 'uname -m | grep -qx i686' »), 0, "use $_ option"
cedric-vincent/kains
…/01-basic.t :67:		 is App::Kains::start(« -S / sh -c 'id -g | grep -qx 0' »), 0, "use -S option";
cedric-vincent/kains
…/01-basic.t :70:		 is App::Kains::start(« -B /dev $nonexistent-path test -d $nonexistent-path »), 0,
cedric-vincent/kains
…/03-bug.t :44:		 is App::Kains::start(« -B $tmp-does-exist $tmp-does-not-exist true »), 0,
cedric-vincent/kains
…/03-bug.t :47:		 is App::Kains::start(« -B $tmp-does-exist "/tmp/$tmp-does-not-exist-too/whatever" true »), 0,
cedric-vincent/kains
…/03-bug.t :60:		 is App::Kains::start(« -B /etc $tmp2 -B /bin $tmp2 -B $tmp1 $tmp2 test -e "$tmp2/$tmp" »), 0,
cedric-vincent/kains
…/03-bug.t :63:		 is App::Kains::start(« -B /etc "$tmp1/$tmp" -B $tmp2 $tmp1 test -e "$tmp1/$tmp/fstab" »), 0,
coke/p6-uni
…/Uni.pm :23:		 @regexes.push(/« <$re> »/);
coke/p6-uni
…/Uni.pm :30:		 @regexes.push(/« <$string> »/);
drforr/perl6-Perl6-Parser
…/operators.t :256:		 my %a; %a« foo »
gfldex/perl6-git-config
…/Config.pm6 :18:		 my $cfg-handle = ([//] try (@fs».IO».open)) // warn("Can not find gitconfig at any of {('⟨' «~« @fs »~» '⟩').join(', ')}");
gfldex/perl6-meta6-bin
…/bin.pm6 :490:		 my $display-name = ('⟨' ~ $base-dir «~« '/' «~« @files »~» '⟩').join(', ');
gfldex/perl6-pod-to-bigpage
…/html.xhtml :12282:		 <pre class="code">C« fixed-width POD text »
gfldex/perl6-pod-to-bigpage
…/html.xhtml :25912:		 <li>&emsp;<a href="#i36">36</a> <a href="#i37">37</a> <a href="#i215">215</a> <a href="#i224">224</a> <a href="#i225">225</a> <a href="#i228">228</a>…
jsimonet/IRC-Client-Plugin-UserPoints
…/README.md :21:		 <botte> jsimonet, Adding one point to botte in « main » category
jsimonet/IRC-Client-Plugin-UserPoints
…/README.md :23:		 <botte> jsimonet, Adding one point to botte2 in « Perl6 » category
jsimonet/IRC-Client-Plugin-UserPoints
…/README.md :27:		 <botte> jsimonet, « botte » has some points : 1 for main
jsimonet/IRC-Client-Plugin-UserPoints
…/README.md :28:		 <botte> jsimonet, « botte2 » has some points : 1 in Perl6
jsimonet/IRC-Client-Plugin-UserPoints
…/UserPoints.pm6 :70:		 !! "$operation-name one point to $user-name in « $category » category";
jsimonet/IRC-Client-Plugin-UserPoints
…/UserPoints.pm6 :97:		 $e.reply: "« $user-name » does not have any points yet.";
jsimonet/IRC-Client-Plugin-UserPoints
…/UserPoints.pm6 :100:		 my $response = "« $user-name » points: ";
jsimonet/dns-zone
…/todo :24:		 - in lib/Zone.pm6, « splice » has an strange comportement, depending it is used in OO way, or not.
p6-css/CSS-Declarations-p6
…/Units.pm :8:		 my enum Scale is export(:Scale) « :pt(1.0) :pc(12.0) :px(.75) :mm(2.8346) :cm(28.346) :in(72.0) »;
p6-pdf/PDF-Content-p6
…/PNG.pm :15:		 enum PNG-CS is export(:PNG-CS) « :Gray(0) :RGB(2) :RGB-Palette(3) :Gray-Alpha(4) :RGB-Alpha(6) »;
p6-pdf/PDF-Content-p6
…/Matrix.pm :14:		 my Int enum TransformMatrixElem « :a(0) :b(1) :c(2) :d(3) :e(4) :f(5) »;
perl6/doc
…/5to6-perlop.pod6 :104:		 C« << » and C« >> » have been replaced by C<< +< >> and C<< +> >>.
perl6/doc
…/operators.pod6 :545:		 L<C<postcircumfix « »>|/routine/« »#(Operators)_postcircumfix_«_»> for convenient
perl6/doc
…/pod.pod6 :520:		 Perl 6 makes considerable use of the « and » characters.
perl6/doc
…/quoting.pod6 :344:		 =head2 X<<<Word quoting with interpolation and quote protection: « »|quote,<< >>;quote,« »>>>
perl6/doc
…/quoting.pod6 :352:		 my $a = 42; say « $a b c ».perl; # OUTPUT: «(IntStr.new(42, "42"), "b", "c")␤»
perl6/doc
…/quoting.pod6 :356:		 my $a = 42; say « "$a b" c ».perl; # OUTPUT: «("42 b", "c")␤»
perl6/doc
…/regexes.pod6 :1110:		 but is otherwise the same as C« $0 < 12 ?? $0 !! $0 - 12 ». When combined with
perlpilot/Grammar-Profiler-Simple
…/Simple.pm :10:		 $name eq any(« parse CREATE Bool defined MATCH Stringy Str WHERE orig BUILD DESTROY ») ??
perlpilot/p6-AI-FANN
…/Base.pm6 :14:		 enum fann_nettype_enum is export « :FANN_NETTYPE_LAYER(0) FANN_NETTYPE_SHORTCUT »;
supernovus/perl6-web
…/Request.pm6 :223:		 $r ~= chr( [+] @chars.splice(0, $bytes) »+&« @mask »+<« @shift );
viklund/november
…/CGI.pm :153:		 $r ~= chr( [+] @chars.splice(0,$bytes) »+&« @mask »+<« @shift );
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment