Skip to content

Instantly share code, notes, and snippets.

@Whateverable
Created July 15, 2019 17:11
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/31071b3428a7b24fcf5d69542fa13532 to your computer and use it in GitHub Desktop.
Save Whateverable/31071b3428a7b24fcf5d69542fa13532 to your computer and use it in GitHub Desktop.
greppable6
File Code
BDUGGAN/Grammar-PrettyErrors
…/README.md :20:
G.parse('orange orange orange banana') orelse
BDUGGAN/Grammar-PrettyErrors
…/README.md :110:
G.parse('orange orange orange banana') orelse
BDUGGAN/Grammar-PrettyErrors
…/simple.p6 :12:
#G.new.parse('hi here') orelse say 'failed';
BDUGGAN/Grammar-PrettyErrors
…/simple.p6 :13:
G.new.parse('hi here') orelse .exception.say;
BDUGGAN/Grammar-PrettyErrors
…/trapped.p6 :12:
G.new.parse('hi here') orelse say "failed at line {.exception.line}";
HANENKAMP/Email-Address
…/Parser.pm6 :156:
token cfws { [ [ $<pres> = [ <fws>? ] <comment> ]+ $<post> = [ <fws>? ] ] | $<orelse> = <fws> }
HANENKAMP/Path-Router
…/Router.pm6 :86:
my $match = $route.match(@parts, :%context) orelse next;
JGOFF/ANTLR4-Grammar
…/Erlang.g4 :184:
expr150 : expr160 ('orelse' expr160)* ;
JGOFF/Perl6-Parser
…/19-operators.t :2655:
# XXX '3orelse2' illegal
JGOFF/Perl6-Parser
…/19-operators.t :2660:
3 orelse 2
JGOFF/Perl6-Parser
…/19-operators.t :2667:
}, Q{orelse};
MATIASL/Pygments
…/perl.py :307:
'mm', 'mod', 'ne', 'or', 'orelse', 'rx', 's', 'tr', 'x', 'xor', 'xx',
CurtTilmes/perl6-eredis
…/Async.pm :15:
self.next orelse IterationEnd;
azawawi/farabi6
…/perl6-mode.js :313:
"orelse extra m mm rx s tr",
cjfields/bioperl6
…/IO.pm6 :31:
$!fh = $file.IO.open(|%args) orelse die "Can't open file: $!";
cjfields/bioperl6
…/Temp.t :41:
my $IN = $tfile.IO.open(:r) orelse die "Could not read file '$tfile': $!\n";
colomon/Test-Junkie
…/tracker.t :54:
my $fh = open $file, :w orelse die "Could not create $file";
drforr/perl6-ANTLR4
…/Erlang.g4 :184:
expr150 : expr160 ('orelse' expr160)* ;
drforr/perl6-Perl6-Parser
…/19-operators.t :2655:
# XXX '3orelse2' illegal
drforr/perl6-Perl6-Parser
…/19-operators.t :2660:
3 orelse 2
drforr/perl6-Perl6-Parser
…/19-operators.t :2667:
}, Q{orelse};
perl6/doc
…/5to6-nutshell.pod6 :1423:
my $fh = open('./bad/path/to/file', :w) orelse .die;
perl6/doc
…/5to6-perlop.pod6 :177:
C<orelse>.
perl6/doc
…/5to6-perlop.pod6 :271:
Additionally, there is a low precedence version of C<//>, called C<orelse>.
perl6/doc
…/faq.pod6 :355:
L<orelse|/routine/orelse> operators, as well as L<type constraint smileys|/type/Signature#Constraining_defined_and_undefined_values>.
perl6/doc
…/haskell-to-p6.pod6 :121:
For more natural control flow with undefined and defined types, Perl 6 introduces C<andthen> and C<orelse>.
perl6/doc
…/haskell-to-p6.pod6 :127:
my $result = parse-int($string) orelse 0;
perl6/doc
…/operators.pod6 :45:
X | Loose or | or xor orelse
perl6/doc
…/operators.pod6 :1830:
orelse say $!.^name; # OUTPUT: «X::Cannot::Lazy␤»
perl6/doc
…/operators.pod6 :2651:
thing as the L<orelse|/routine/orelse> operator. The difference is subtle:
perl6/doc
…/operators.pod6 :2655:
L<orelse|/routine/orelse> returns that item. In other words,
perl6/doc
…/operators.pod6 :2657:
whereas L<orelse|/routine/orelse> is a means to obtain the first defined item:
perl6/doc
…/operators.pod6 :2661:
sub first-working-sensor { [orelse] |@_, 'default sensor' }
perl6/doc
…/operators.pod6 :2694:
X<|orelse>
perl6/doc
…/operators.pod6 :2695:
=head2 infix C«orelse»
perl6/doc
…/operators.pod6 :2697:
The C<orelse> operator is similar to C<infix //>, except with looser precedence
perl6/doc
…/operators.pod6 :2712:
sub meows-processor1 { meows() orelse .return } # return handled Failure
perl6/doc
…/operators.pod6 :2713:
sub meows-processor2 { meows() orelse fail $_ } # return re-armed Failure
perl6/doc
…/operators.pod6 :2716:
meows() andthen .say orelse ‘something's wrong’.say;
perl6/doc
…/regexes.pod6 :461:
orelse say ($!.^name, $!.empty-range);
perl6/doc
…/regexes.pod6 :464:
orelse say ($!.^name, $!.inf);
perl6/doc
…/regexes.pod6 :467:
orelse say ($!.^name, $!.non-numeric-range);
perl6/doc
…/regexes.pod6 :470:
orelse say ($!.^name, $!.non-numeric-range);
perl6/doc
…/regexes.pod6 :473:
orelse say ($!.^name, $!.inf);
perl6/doc
…/regexes.pod6 :476:
orelse say ($!.^name, $!.non-numeric);
perl6/doc
…/ClassHOW.pod6 :96:
orelse "method `$meth` not found".say
perl6/doc
…/MROBasedMethodDispatch.pod6 :25:
orelse "method `$meth` not found".say
perl6/doc
…/words.pws :814:
orelse
salortiz/p6-LMDB
…/LMDB.pm6 :411:
my $dbi = self.db-open(:$name, :$flags) orelse $dbi.fail;
spitsh/spitsh
…/SAST.pm6 :1483:
$!cond orelse $_ = SAST::BVal.new(:val, :$.match);
spitsh/spitsh
…/cli.pm6 :272:
(%cli<src-file>.IO.slurp orelse .throw),
supernovus/perl6-web-template
…/Mojo.pm6 :27:
$template orelse die "No template file for '$template-name' was found.";
tadzik/panda
…/CONTRIBUTING.md :7:
in code. We're worry about that after christmas, orelse in post-beta
zoffixznet/perl6-Config-JSON
…/JSON.pm6 :35:
my $c := read-conf-from $file orelse fail .exception;
zoffixznet/perl6-Config-JSON
…/JSON.pm6 :41:
my $c := read-conf-from $file orelse fail .exception;
zoffixznet/perl6-Pastebin-Gist
…/Gist.pm6 :30:
orelse die X.new: :message(.exception.message);
zoffixznet/perl6-WWW-P6lert
…/README.md :42:
my $last-time := +(slurp $conf orelse 0);
zoffixznet/perl6-WWW-P6lert
…/README.md :177:
orelse "Couldn't get it";
zoffixznet/perl6-WWW-P6lert
…/last-fetcher.p6 :5:
my $last-time := +(slurp $conf orelse 0);
zoffixznet/perl6-WWW-P6lert
…/P6lert.pm6 :39:
orelse fail .&err)<alerts>.map: { Alert!Alert::new: |$_ }
zoffixznet/perl6-WWW-P6lert
…/P6lert.pm6 :43:
orelse fail .&err)<alerts>.map: { Alert!Alert::new: |$_ }
zoffixznet/perl6-WWW-P6lert
…/P6lert.pm6 :50:
orelse fail .&err)<alerts>.map: { Alert!Alert::new: |$_ }
zoffixznet/perl6-WWW-P6lert
…/P6lert.pm6 :54:
orelse fail .&err)<alert>
zostay/p6-Path-Router
…/Router.pm6 :86:
my $match = $route.match(@parts, :%context) orelse next;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment