Skip to content

Instantly share code, notes, and snippets.

@AlexDaniel
Forked from Whateverable/query
Created October 19, 2019 16:31
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 AlexDaniel/1b8d02eb7902f774fe0dd3f1eb9f9b3e to your computer and use it in GitHub Desktop.
Save AlexDaniel/1b8d02eb7902f774fe0dd3f1eb9f9b3e to your computer and use it in GitHub Desktop.
greppable6
≠|≤|≥
File Code
CTILMES/DB-Pg
…/Results.pm6 :46:
return () unless 0 $row < self.rows;
FRITH/Desktop-Notify-Progress
…/Progress.pm6 :28:
X::AdHoc.new(payload => '$size must be > 0').throw if $size.defined && $size 0;
FRITH/Math-FFT-Libfftw3
…/README.md :175:
This module needs Perl 6 2018.09 only if one wants to use shaped arrays as input data. An attempt to feed a shaped
FRITH/Math-FFT-Libfftw3
…/C2C.pm6 :303:
This module needs Perl 6 2018.09 only if one wants to use shaped arrays as input data. An attempt to feed a shaped
FRITH/Math-FFT-Libfftw3
…/R2C.pm6 :331:
This module needs Perl 6 2018.09 only if one wants to use shaped arrays as input data. An attempt to feed a shaped
FRITH/Math-FFT-Libfftw3
…/R2R.pm6 :320:
This module needs Perl 6 2018.09 only if one wants to use shaped arrays as input data. An attempt to feed a shaped
HANENKAMP/Path-Router
…/Router.pm6 :166:
) || die X::RouteNotMatched.new("LENGTH DID NOT MATCH ({$required.elems} required {$required.elems <= @keys.elems ?? "" !! "≰"} {@keys…
JMASLAK/DateTime-Monotonic
…/Monotonic.pm6 :88:
if ($val + $!offset) $!last-time {
JMASLAK/DateTime-Monotonic
…/01-basic.t :30:
ok ($end - $start) 1, "Time (numeric) moves forward";
JMASLAK/DateTime-Monotonic
…/01-basic.t :31:
ok ($end-int - $start-int) 1, "Time (whole) moves forward";
JMASLAK/DateTime-Monotonic
…/01-basic.t :32:
ok ($end - $start) 60, "Time (numeric) doesn't move forward too much";
JMASLAK/DateTime-Monotonic
…/01-basic.t :33:
ok ($end-int - $start-int) 60, "Time (whole) doesn't move forward too much";
JMASLAK/DateTime-Monotonic
…/01-basic.t :61:
ok ($end - $start) 1, "Time moves forward";
JMASLAK/DateTime-Monotonic
…/01-basic.t :62:
ok ($end - $start) 60, "Time doesn't move forward too much";
JMASLAK/Net-BGP
…/bgpmon.pl6 :128:
if $cnt++ 8*2*$batch-size {
JMASLAK/Net-BGP
…/bgpmon.pl6 :168:
if $max-log-messages.defined && ($messages-logged $max-log-messages) {
JMASLAK/Net-BGP
…/AFI-SAFI.pm6 :28:
return False if $a.afi-code $b.afi-code;
JMASLAK/Net-BGP
…/AS-List.pm6 :15:
has buf8:D $.raw is required where { $^a.bytes 2 };
JMASLAK/Net-BGP
…/AS-List.pm6 :19:
if $.raw.bytes 2 + self.asn-size * self.asn-count {
JMASLAK/Net-BGP
…/AS-List.pm6 :20:
die("Path segment wrong length ({$.raw.bytes} {2+ self.asn-size * self.asn-count})");
JMASLAK/Net-BGP
…/AS-List.pm6 :34:
if self.asn-size * self.asn-count + 2 $!raw.bytes {
JMASLAK/Net-BGP
…/AS-List.pm6 :111:
if (!$asn32) and ($ele 2¹⁶) { $ele = 23456; }
JMASLAK/Net-BGP
…/AS-List.pm6 :170:
if $.raw.bytes 2 + self.asn-size * self.asn-count {
JMASLAK/Net-BGP
…/CIDR.pm6 :38:
if @parts.elems 2 { die("Invalid CIDR - $ip"); }
JMASLAK/Net-BGP
…/CIDR.pm6 :177:
if self.ip-version $cidr.ip-version { return False }
JMASLAK/Net-BGP
…/Capability.pm6 :37:
method from-raw(buf8:D $raw where $raw.bytes 2) {
JMASLAK/Net-BGP
…/Capability.pm6 :48:
if %capability-codes{ %params<capability-code> } %capability-names{ %params<capability-name> } {
JMASLAK/Net-BGP
…/ASN32.pm6 :27:
if $raw[0] 65 { die("Can only build a ASN32 capability"); }
JMASLAK/Net-BGP
…/ASN32.pm6 :28:
if $raw[1] 4 { die("Bad capability length"); }
JMASLAK/Net-BGP
…/ASN32.pm6 :38:
if %params<capability-code> 65 {
JMASLAK/Net-BGP
…/Generic.pm6 :25:
method from-raw(buf8:D $raw where $raw.bytes 2) {
JMASLAK/Net-BGP
…/Generic.pm6 :26:
if ($raw.bytes - 2) $raw[1] { die("Invalid capability payload length"); }
JMASLAK/Net-BGP
…/MPBGP.pm6 :29:
if $raw[0] 1 { die("Can only build a MPBGP capability"); }
JMASLAK/Net-BGP
…/MPBGP.pm6 :30:
if $raw[1] 4 { die("Bad capability length"); }
JMASLAK/Net-BGP
…/MPBGP.pm6 :43:
if %params<capability-code> 1 {
JMASLAK/Net-BGP
…/Route-Refresh.pm6 :26:
if $raw[0] 2 { die("Can only build a Route-Refresh capability"); }
JMASLAK/Net-BGP
…/Route-Refresh.pm6 :27:
if $raw[1] 0 { die("Bad capability length"); }
JMASLAK/Net-BGP
…/Route-Refresh.pm6 :37:
if %params<capability-code> 2 {
JMASLAK/Net-BGP
…/Controller.pm6 :66:
if ($open.asn 23456) && ($peer-asn (2¹⁶)) {
JMASLAK/Net-BGP
…/Controller.pm6 :116:
if ($open.asn $peer-asn) && ($peer-asn < (2¹⁶)) {
JMASLAK/Net-BGP
…/Controller.pm6 :119:
if ($open.asn 23456) && ($peer-asn (2¹⁶)) {
JMASLAK/Net-BGP
…/Controller.pm6 :126:
if $open.asn $p.peer-asn {
JMASLAK/Net-BGP
…/Controller.pm6 :155:
if $p.connection.defined && ($p.connection.id $connection.id) {
JMASLAK/Net-BGP
…/Controller.pm6 :326:
my $asn16 = $.my-asn (2¹⁶) ?? 23456 !! $.my-asn;
JMASLAK/Net-BGP
…/Conversions-Pre201812.pm6 :9:
# Helper subs for Rakudo 2018.11
JMASLAK/Net-BGP
…/Conversions.pm6 :13:
use Net::BGP::Conversions-Pre201812:if( $*PERL.compiler.version v2018.11);
JMASLAK/Net-BGP
…/IP.pm6 :51:
if @parts.elems 4 { die("Must pass 4 parts - you passed { @parts.elems }") }
JMASLAK/Net-BGP
…/IP.pm6 :69:
| [ (<h16>) +% ':']? '::' [ (<h16>) +% ':' ]? <?{ @$0 + @$1 8 }>
JMASLAK/Net-BGP
…/IP.pm6 :73:
token h16 { (<:hexdigit>+) <?{ @$0 4 }> }
JMASLAK/Net-BGP
…/IP.pm6 :111:
if $buf.bytes $bytes {
JMASLAK/Net-BGP
…/IP.pm6 :112:
die("buf8-to-ipv6 called with wrong length buffer ($bytes {$buf.bytes})");
JMASLAK/Net-BGP
…/IP.pm6 :118:
$int += $buf[$byte] unless $byte $bytes;
JMASLAK/Net-BGP
…/IP.pm6 :140:
if @parts[$i] 0 {
JMASLAK/Net-BGP
…/IP.pm6 :155:
if $best-run.defined and $i $best-run and $i < ($best-run + $best-length) {
JMASLAK/Net-BGP
…/IP.pm6 :158:
if $i 7 {
JMASLAK/Net-BGP
…/Message.pm6 :48:
if %params<message-code>:exists and %params<message-code> %params<message-name> {
JMASLAK/Net-BGP
…/Keep-Alive.pm6 :34:
if (%params<message-code> 4) { die("Invalid message type for Keep-Alive"); }
JMASLAK/Net-BGP
…/Notify.pm6 :55:
method from-raw(buf8:D $raw where $raw.bytes 3) {
JMASLAK/Net-BGP
…/Notify.pm6 :56:
if $raw[0] 3 { # Not notify
JMASLAK/Net-BGP
…/Notify.pm6 :70:
if (%params<message-code> 3) { die("Invalid message type for NOTIFY"); }
JMASLAK/Net-BGP
…/Notify.pm6 :81:
if %params<error-code> %error-names{ %params<error-names> }.implemented-error-code {
JMASLAK/Net-BGP
…/Generic.pm6 :29:
method from-raw(buf8:D $raw where $raw.bytes 3) {
JMASLAK/Net-BGP
…/Generic.pm6 :32:
if $raw[0] 3 { # Not a notify
JMASLAK/Net-BGP
…/Generic.pm6 :47:
if (%params<message-code> 3) { die("Invalid message type for NOTIFY"); }
JMASLAK/Net-BGP
…/Header.pm6 :36:
method from-raw(buf8:D $raw where $raw.bytes 3) {
JMASLAK/Net-BGP
…/Header.pm6 :37:
if $raw[0] 3 { # Not notify
JMASLAK/Net-BGP
…/Header.pm6 :40:
if $raw[1] 1 { # Not Header Error
JMASLAK/Net-BGP
…/Header.pm6 :54:
if (%params<message-code> 3) { die("Invalid message type for NOTIFY"); }
JMASLAK/Net-BGP
…/Header.pm6 :58:
if (%params<error-code> 1) { die("Invalid error type for Header"); }
JMASLAK/Net-BGP
…/Header.pm6 :69:
if %params<error-subcode> %error-subnames{ %params<error-subnames> }.implemented-error-subcode {
JMASLAK/Net-BGP
…/Connection-Not-Syncronized.pm6 :29:
if $raw[0] 3 { # Not a notify
JMASLAK/Net-BGP
…/Connection-Not-Syncronized.pm6 :32:
if $raw[1] 1 { # Not an Header error
JMASLAK/Net-BGP
…/Connection-Not-Syncronized.pm6 :35:
if $raw[2] 1 { # Not a Connection Not Syncronized
JMASLAK/Net-BGP
…/Connection-Not-Syncronized.pm6 :50:
if (%params<message-code> 3) { die("Invalid message type for NOTIFY"); }
JMASLAK/Net-BGP
…/Connection-Not-Syncronized.pm6 :54:
if (%params<error-code> 1) { die("Invalid error type for Header"); }
JMASLAK/Net-BGP
…/Connection-Not-Syncronized.pm6 :58:
if (%params<error-subcode> 1) { die("Invalid error type for Connection not Syncronized"); }
JMASLAK/Net-BGP
…/Generic.pm6 :26:
method from-raw(buf8:D $raw where $raw.bytes 3) {
JMASLAK/Net-BGP
…/Generic.pm6 :29:
if $raw[0] 3 { # Not a notify
JMASLAK/Net-BGP
…/Generic.pm6 :32:
if $raw[1] 1 { # Not an Header error
JMASLAK/Net-BGP
…/Generic.pm6 :47:
if (%params<message-code> 3) { die("Invalid message type for NOTIFY"); }
JMASLAK/Net-BGP
…/Generic.pm6 :51:
if (%params<error-code> 1) { die("Invalid error type for Header"); }
JMASLAK/Net-BGP
…/Hold-Timer-Expired.pm6 :32:
if $raw[0] 3 { # Not a notify
JMASLAK/Net-BGP
…/Hold-Timer-Expired.pm6 :35:
if $raw[1] 4 { # Not a hold time expiired
JMASLAK/Net-BGP
…/Hold-Timer-Expired.pm6 :45:
if (%params<message-code> 3) { die("Invalid message type for NOTIFY"); }
JMASLAK/Net-BGP
…/Hold-Timer-Expired.pm6 :49:
if (%params<error-code> 4) { die("Invalid message type for Hold-Timer-Expired"); }
JMASLAK/Net-BGP
…/Open.pm6 :36:
method from-raw(buf8:D $raw where $raw.bytes 3) {
JMASLAK/Net-BGP
…/Open.pm6 :37:
if $raw[0] 3 { # Not notify
JMASLAK/Net-BGP
…/Open.pm6 :40:
if $raw[1] 2 { # Not Open Error
JMASLAK/Net-BGP
…/Open.pm6 :54:
if (%params<message-code> 3) { die("Invalid message type for NOTIFY"); }
JMASLAK/Net-BGP
…/Open.pm6 :58:
if (%params<error-code> 2) { die("Invalid error type for Open"); }
JMASLAK/Net-BGP
…/Open.pm6 :69:
if %params<error-subcode> %error-subnames{ %params<error-subnames> }.implemented-error-subcode {
JMASLAK/Net-BGP
…/Bad-Peer-AS.pm6 :26:
method from-raw(buf8:D $raw where $raw.bytes 3) {
JMASLAK/Net-BGP
…/Bad-Peer-AS.pm6 :29:
if $raw[0] 3 { # Not a notify
JMASLAK/Net-BGP
…/Bad-Peer-AS.pm6 :32:
if $raw[1] 2 { # Not an Open error
JMASLAK/Net-BGP
…/Bad-Peer-AS.pm6 :35:
if $raw[2] 2 { # Not a bad peer AS
JMASLAK/Net-BGP
…/Bad-Peer-AS.pm6 :50:
if (%params<message-code> 3) { die("Invalid message type for NOTIFY"); }
JMASLAK/Net-BGP
…/Bad-Peer-AS.pm6 :54:
if (%params<error-code> 2) { die("Invalid error type for Open"); }
JMASLAK/Net-BGP
…/Bad-Peer-AS.pm6 :58:
if (%params<error-subcode> 2) { die("Invalid error type for Bad Peer AS"); }
JMASLAK/Net-BGP
…/Generic.pm6 :26:
method from-raw(buf8:D $raw where $raw.bytes 3) {
JMASLAK/Net-BGP
…/Generic.pm6 :29:
if $raw[0] 3 { # Not a notify
JMASLAK/Net-BGP
…/Generic.pm6 :32:
if $raw[1] 2 { # Not an Open error
JMASLAK/Net-BGP
…/Generic.pm6 :47:
if (%params<message-code> 3) { die("Invalid message type for NOTIFY"); }
JMASLAK/Net-BGP
…/Generic.pm6 :51:
if (%params<error-code> 2) { die("Invalid error type for Open"); }
JMASLAK/Net-BGP
…/Unsupported-Optional-Parameter.pm6 :29:
if $raw[0] 3 { # Not a notify
JMASLAK/Net-BGP
…/Unsupported-Optional-Parameter.pm6 :32:
if $raw[1] 2 { # Not an Open error
JMASLAK/Net-BGP
…/Unsupported-Optional-Parameter.pm6 :35:
if $raw[2] 4 { # Not a bad peer AS
JMASLAK/Net-BGP
…/Unsupported-Optional-Parameter.pm6 :50:
if (%params<message-code> 3) { die("Invalid message type for NOTIFY"); }
JMASLAK/Net-BGP
…/Unsupported-Optional-Parameter.pm6 :54:
if (%params<error-code> 2) { die("Invalid error type for Open"); }
JMASLAK/Net-BGP
…/Unsupported-Optional-Parameter.pm6 :58:
if (%params<error-subcode> 4) { die("Invalid error type for Unsupported Optional Parameter"); }
JMASLAK/Net-BGP
…/Unsupported-Version.pm6 :29:
if $raw[0] 3 { # Not a notify
JMASLAK/Net-BGP
…/Unsupported-Version.pm6 :32:
if $raw[1] 2 { # Not an Open error
JMASLAK/Net-BGP
…/Unsupported-Version.pm6 :35:
if $raw[2] 1 { # Not an Unsupported-Version
JMASLAK/Net-BGP
…/Unsupported-Version.pm6 :50:
if (%params<message-code> 3) { die("Invalid message type for NOTIFY"); }
JMASLAK/Net-BGP
…/Unsupported-Version.pm6 :54:
if (%params<error-code> 2) { die("Invalid error type for Open"); }
JMASLAK/Net-BGP
…/Unsupported-Version.pm6 :58:
if (%params<error-subcode> 1) { die("Invalid error type for Unsupported Version"); }
JMASLAK/Net-BGP
…/Open.pm6 :111:
method from-raw(buf8:D $raw where $raw.bytes 11) {
JMASLAK/Net-BGP
…/Open.pm6 :113:
if $obj.version 4 { die Net::BGP::Error::Unknown-Version.new(:version($obj.version)) }
JMASLAK/Net-BGP
…/Open.pm6 :114:
if $obj.hold-time 0 and $obj.hold-time < 3 {
JMASLAK/Net-BGP
…/Open.pm6 :142:
if (%params<message-code> 1) { die("Invalid message type for OPEN"); }
JMASLAK/Net-BGP
…/Open.pm6 :153:
if %params<version> 4 {
JMASLAK/Net-BGP
…/Open.pm6 :157:
if %params<hold-time> 0 and %params<hold-time> < 3 { die "Invalid hold time" }
JMASLAK/Net-BGP
…/Update.pm6 :157:
method from-raw(buf8:D $raw where $raw.bytes 2, Bool:D :$asn32) {
JMASLAK/Net-BGP
…/Update.pm6 :192:
if (%params<message-code> 2) { die("Invalid message type for UPDATE"); }
JMASLAK/Net-BGP
…/Update.pm6 :196:
if (%params<message-name> 'UPDATE') {
JMASLAK/Net-BGP
…/Update.pm6 :289:
if $aggregate-asn 2¹⁶ and ! $asn32 { $aggregate-asn = 23456 }
JMASLAK/Net-BGP
…/Update.pm6 :357:
if !$asn32 and %params<as-path>.comb(/ <[0..9]>+ /).first(* 2¹⁶).defined {
JMASLAK/Net-BGP
…/Update.pm6 :377:
&& ( %params<aggregator-asn> 2¹⁶ )
JMASLAK/Net-BGP
…/Parameter.pm6 :47:
if %params<parameter-code>:exists and %params<parameter-code> %params<parameter-name> {
JMASLAK/Net-BGP
…/Capabilities.pm6 :45:
if $raw[0] 2 { die("Can only build a Capabilities parameter") }
JMASLAK/Net-BGP
…/Capabilities.pm6 :63:
if %params<parameter-code> 2 {
JMASLAK/Net-BGP
…/Generic.pm6 :47:
if %params<parameter-code>.Str %params<parameter-name> {
JMASLAK/Net-BGP
…/Path-Attribute.pm6 :64:
method from-raw(buf8:D $raw where $raw.bytes 2, Bool:D :$asn32) {
JMASLAK/Net-BGP
…/Path-Attribute.pm6 :75:
if %path-attribute-codes{ %params<path-attribute-code> } %path-attribute-names{ %params<path-attribute-name> } {
JMASLAK/Net-BGP
…/AS-Path.pm6 :28:
method from-raw(buf8:D $raw where $raw.bytes 3, :$asn32) {
JMASLAK/Net-BGP
…/AS-Path.pm6 :40:
if $raw[1] 2 { die("Can only create a AS-Path attribute") }
JMASLAK/Net-BGP
…/AS-Path.pm6 :53:
if %params<path-attribute-code> 2 {
JMASLAK/Net-BGP
…/AS-Path.pm6 :59:
if %params<path-attribute-name> 'AS-Path' {
JMASLAK/Net-BGP
…/AS-Path.pm6 :118:
if $top.path-length $len {
JMASLAK/Net-BGP
…/AS-Path.pm6 :150:
if $top.path-length $len {
JMASLAK/Net-BGP
…/AS4-Aggregator.pm6 :33:
if $raw[1] 18 { die("Can only create an Origin attribute") }
JMASLAK/Net-BGP
…/AS4-Aggregator.pm6 :35:
if ($raw.bytes - 3) $raw[2] { die("Invalid path-attribute payload length") }
JMASLAK/Net-BGP
…/AS4-Aggregator.pm6 :36:
if $raw[2] 8 { die("Invalid path-attribute payload length") }
JMASLAK/Net-BGP
…/AS4-Aggregator.pm6 :47:
if %params<path-attribute-code> 18 {
JMASLAK/Net-BGP
…/AS4-Aggregator.pm6 :53:
if %params<path-attribute-name> 'AS4-Aggregator' {
JMASLAK/Net-BGP
…/AS4-Path.pm6 :28:
method from-raw(buf8:D $raw where $raw.bytes 3, :$asn32) {
JMASLAK/Net-BGP
…/AS4-Path.pm6 :39:
if $raw[1] 17 { die("Can only create a AS4-Path attribute") }
JMASLAK/Net-BGP
…/AS4-Path.pm6 :52:
if %params<path-attribute-code> 17 {
JMASLAK/Net-BGP
…/AS4-Path.pm6 :58:
if %params<path-attribute-name> 'AS4-Path' {
JMASLAK/Net-BGP
…/Aggregator.pm6 :34:
if $raw[1] 7 { die("Can only create an Origin attribute") }
JMASLAK/Net-BGP
…/Aggregator.pm6 :36:
if ($raw.bytes - 3) $raw[2] { die("Invalid path-attribute payload length") }
JMASLAK/Net-BGP
…/Aggregator.pm6 :37:
if $asn32 && $raw[2] 8 { die("Invalid path-attribute payload length") }
JMASLAK/Net-BGP
…/Aggregator.pm6 :38:
if !$asn32 && $raw[2] 6 { die("Invalid path-attribute payload length") }
JMASLAK/Net-BGP
…/Aggregator.pm6 :49:
if %params<path-attribute-code> 7 {
JMASLAK/Net-BGP
…/Aggregator.pm6 :55:
if %params<path-attribute-name> 'Aggregator' {
JMASLAK/Net-BGP
…/Atomic-Aggregate.pm6 :33:
if $raw[1] 6 { die("Can only create an Atomic-Aggregate attribute") }
JMASLAK/Net-BGP
…/Atomic-Aggregate.pm6 :35:
if ($raw.bytes - 3) $raw[2] { die("Invalid path-attribute payload length") }
JMASLAK/Net-BGP
…/Atomic-Aggregate.pm6 :36:
if $raw[2] 0 { die("Invalid path-attribute payload length") }
JMASLAK/Net-BGP
…/Atomic-Aggregate.pm6 :47:
if %params<path-attribute-code> 6 {
JMASLAK/Net-BGP
…/Atomic-Aggregate.pm6 :53:
if %params<path-attribute-name> 'Atomic-Aggregate' {
JMASLAK/Net-BGP
…/Cluster-List.pm6 :28:
method from-raw(buf8:D $raw where $raw.bytes 3, :$asn32) {
JMASLAK/Net-BGP
…/Cluster-List.pm6 :33:
if $raw[1] 10 { die("Can only create a Cluster-List attribute") }
JMASLAK/Net-BGP
…/Cluster-List.pm6 :38:
if $raw.bytes ($len + 4) { die("Cluster-List attribute has bad payload length") }
JMASLAK/Net-BGP
…/Cluster-List.pm6 :41:
if $raw.bytes ($len + 3) { die("Cluster-List attribute has bad payload length") }
JMASLAK/Net-BGP
…/Cluster-List.pm6 :53:
if %params<path-attribute-code> 10 {
JMASLAK/Net-BGP
…/Cluster-List.pm6 :59:
if %params<path-attribute-name> 'Cluster-List' {
JMASLAK/Net-BGP
…/Community.pm6 :36:
method from-raw(buf8:D $raw where { $^r.bytes 3 }, Bool:D :$asn32) {
JMASLAK/Net-BGP
…/Community.pm6 :44:
if $raw[1] 8 { die("Can only create a Community attribute") }
JMASLAK/Net-BGP
…/Community.pm6 :46:
if ($raw.bytes - $offset) $len { die("Invalid path-attribute payload length ({$raw.bytes}, $offset, {$len}") }
JMASLAK/Net-BGP
…/Community.pm6 :57:
if %params<path-attribute-code> 8 {
JMASLAK/Net-BGP
…/Community.pm6 :63:
if %params<path-attribute-name> 'Community' {
JMASLAK/Net-BGP
…/Generic.pm6 :27:
method from-raw(buf8:D $raw where $raw.bytes 3, Bool:D :$asn32) {
JMASLAK/Net-BGP
…/Generic.pm6 :29:
if ($raw.bytes - 4) nuint16($raw.subbuf(2,2)) {
JMASLAK/Net-BGP
…/Generic.pm6 :33:
if ($raw.bytes - 3) $raw[2] {
JMASLAK/Net-BGP
…/Local-Pref.pm6 :34:
if $raw[1] 5 { die("Can only create a Local-Pref attribute") }
JMASLAK/Net-BGP
…/Local-Pref.pm6 :36:
if ($raw.bytes - 3) $raw[2] { die("Invalid path-attribute payload length") }
JMASLAK/Net-BGP
…/Local-Pref.pm6 :37:
if $raw[2] 4 { die("Invalid path-attribute payload length") }
JMASLAK/Net-BGP
…/Local-Pref.pm6 :48:
if %params<path-attribute-code> 5 {
JMASLAK/Net-BGP
…/Local-Pref.pm6 :54:
if %params<path-attribute-name> 'Local-Pref' {
JMASLAK/Net-BGP
…/MED.pm6 :34:
if $raw[1] 4 { die("Can only create a MED attribute") }
JMASLAK/Net-BGP
…/MED.pm6 :36:
if ($raw.bytes - 3) $raw[2] { die("Invalid path-attribute payload length") }
JMASLAK/Net-BGP
…/MED.pm6 :37:
if $raw[2] 4 { die("Invalid path-attribute payload length") }
JMASLAK/Net-BGP
…/MED.pm6 :48:
if %params<path-attribute-code> 4 {
JMASLAK/Net-BGP
…/MED.pm6 :54:
if %params<path-attribute-name> 'MED' {
JMASLAK/Net-BGP
…/MP-NLRI.pm6 :31:
method from-raw(buf8:D $raw where $raw.bytes 7, :$asn32) {
JMASLAK/Net-BGP
…/MP-NLRI.pm6 :36:
if $raw[1] 14 { die("Can only create a MP-NLRI attribute") }
JMASLAK/Net-BGP
…/MP-NLRI.pm6 :41:
if $raw.bytes ($len + 4) { die("MP-NLRI attribute has bad payload length") }
JMASLAK/Net-BGP
…/MP-NLRI.pm6 :44:
if $raw.bytes ($len + 3) { die("MP-NLRI attribute has bad payload length") }
JMASLAK/Net-BGP
…/MP-NLRI.pm6 :58:
if %params<path-attribute-code> 14 {
JMASLAK/Net-BGP
…/MP-NLRI.pm6 :64:
if %params<path-attribute-name> 'MP-NLRI' {
JMASLAK/Net-BGP
…/MP-NLRI.pm6 :156:
if self.data[3] 4 { die("Invalid VPLS next hop length") }
JMASLAK/Net-BGP
…/MP-Unreachable.pm6 :31:
method from-raw(buf8:D $raw where $raw.bytes 3, :$asn32) {
JMASLAK/Net-BGP
…/MP-Unreachable.pm6 :36:
if $raw[1] 15 { die("Can only create a MP-Unreachable attribute") }
JMASLAK/Net-BGP
…/MP-Unreachable.pm6 :47:
if %params<path-attribute-code> 15 {
JMASLAK/Net-BGP
…/MP-Unreachable.pm6 :53:
if %params<path-attribute-name> 'MP-Unreachable' {
JMASLAK/Net-BGP
…/Next-Hop.pm6 :34:
if $raw[1] 3 { die("Can only create a Next-Hop attribute") }
JMASLAK/Net-BGP
…/Next-Hop.pm6 :36:
if ($raw.bytes - 3) $raw[2] { die("Invalid path-attribute payload length") }
JMASLAK/Net-BGP
…/Next-Hop.pm6 :37:
if $raw[2] 4 { die("Invalid path-attribute payload length") }
JMASLAK/Net-BGP
…/Next-Hop.pm6 :48:
if %params<path-attribute-code> 3 {
JMASLAK/Net-BGP
…/Next-Hop.pm6 :54:
if %params<path-attribute-name> 'Next-Hop' {
JMASLAK/Net-BGP
…/Origin.pm6 :33:
if $raw[1] 1 { die("Can only create an Origin attribute") }
JMASLAK/Net-BGP
…/Origin.pm6 :35:
if ($raw.bytes - 3) $raw[2] { die("Invalid path-attribute payload length") }
JMASLAK/Net-BGP
…/Origin.pm6 :36:
if $raw[2] 1 { die("Invalid path-attribute payload length") }
JMASLAK/Net-BGP
…/Origin.pm6 :49:
if %params<path-attribute-code> 1 {
JMASLAK/Net-BGP
…/Origin.pm6 :55:
if %params<path-attribute-name> 'Origin' {
JMASLAK/Net-BGP
…/Originator-ID.pm6 :34:
if $raw[1] 9 { die("Can only create a Originator-ID attribute") }
JMASLAK/Net-BGP
…/Originator-ID.pm6 :36:
if ($raw.bytes - 3) $raw[2] { die("Invalid path-attribute payload length") }
JMASLAK/Net-BGP
…/Originator-ID.pm6 :37:
if $raw[2] 4 { die("Invalid path-attribute payload length") }
JMASLAK/Net-BGP
…/Originator-ID.pm6 :48:
if %params<path-attribute-code> 9 {
JMASLAK/Net-BGP
…/Originator-ID.pm6 :54:
if %params<path-attribute-name> 'Originator-ID' {
JMASLAK/Net-BGP
…/Peer-List.pm6 :84:
if $now ($peer.last-connect-attempt + $peer.connect-retry-time) {
JMASLAK/Net-BGP
…/Peer-List.pm6 :97:
if $peer.state Net::BGP::Peer::Established { next; }
JMASLAK/Net-BGP
…/Peer-List.pm6 :110:
if $now ($peer.last-message-sent + $send-time) {
JMASLAK/Net-BGP
…/Peer-List.pm6 :123:
if $peer.state Net::BGP::Peer::Established { next; }
JMASLAK/Net-BGP
…/Peer-List.pm6 :136:
if $now (($peer.last-message-received // 0) + $send-time) {
JMASLAK/Net-BGP
…/Socket-Connection-Linux.pm6 :37:
if $!state SOCKET_OPEN { die "Socket in wrong state" }
JMASLAK/Net-BGP
…/Socket-Connection-Linux.pm6 :40:
if $rv $buffer {
JMASLAK/Net-BGP
…/Socket-Connection-Linux.pm6 :41:
self.close if $!state SOCKET_CLOSED;
JMASLAK/Net-BGP
…/Socket-Connection-Linux.pm6 :46:
if $!state SOCKET_OPEN { die "Socket in wrong state" }
JMASLAK/Net-BGP
…/Socket-Connection-Linux.pm6 :52:
if $!state SOCKET_OPEN { die "Socket in wrong state" }
JMASLAK/Net-BGP
…/Socket-Connection-Linux.pm6 :61:
if $!state SOCKET_OPEN { die "Socket in wrong state" }
JMASLAK/Net-BGP
…/Socket-Connection-Linux.pm6 :67:
self.close if $!state SOCKET_CLOSED;
JMASLAK/Net-BGP
…/Socket-Connection-Linux.pm6 :77:
if $!state SOCKET_OPEN { die "Socket in wrong state" }
JMASLAK/Net-BGP
…/Socket-Connection-Linux.pm6 :96:
self.close if $!state SOCKET_CLOSED;
JMASLAK/Net-BGP
…/Socket-Connection-Linux.pm6 :106:
if $!state SOCKET_OPEN { die "Socket in wrong state" }
JMASLAK/Net-BGP
…/Socket-Connection-Linux.pm6 :125:
if $!state SOCKET_OPEN { return; }
JMASLAK/Net-BGP
…/Socket-Connection-Linux.pm6 :134:
if self.state SOCKET_CLOSED { self.close }
JMASLAK/Net-BGP
…/Socket-Linux.pm6 :160:
if $!state SOCKET_CLOSED { die "Socket in improper state" }
JMASLAK/Net-BGP
…/Socket-Linux.pm6 :179:
if $!state SOCKET_CREATED { die "Socket in improper state" }
JMASLAK/Net-BGP
…/Socket-Linux.pm6 :242:
if $!state SOCKET_BOUND {
JMASLAK/Net-BGP
…/Socket-Linux.pm6 :261:
if $!state SOCKET_BOUND { die "Socket in improper state ( $!state )" }
JMASLAK/Net-BGP
…/Socket-Linux.pm6 :335:
if $!state SOCKET_BOUND { die "Socket in improper state" }
JMASLAK/Net-BGP
…/Socket-Linux.pm6 :427:
# has Str:D $.tcpm_key is rw where { $^s.chars 80 } = '';
JMASLAK/Net-BGP
…/Socket-Linux.pm6 :492:
if $MD5.chars > 80 { die("MD5 password must be 80 characters") }
JMASLAK/Net-BGP
…/Socket-Linux.pm6 :535:
if $!state SOCKET_CREATED {
JMASLAK/Net-BGP
…/Socket-Linux.pm6 :575:
if self.state SOCKET_CLOSED { self.close }
JMASLAK/Net-BGP
…/Validation.pm6 :88:
if 64496 $asn 64511 { return 'DOC'; }
JMASLAK/Net-BGP
…/Validation.pm6 :89:
if 64512 $asn 65534 { return 'PRIVATE'; }
JMASLAK/Net-BGP
…/Validation.pm6 :91:
if 65536 $asn 65551 { return 'DOC'; }
JMASLAK/Net-BGP
…/Validation.pm6 :92:
if 65552 $asn 131071 { return 'RESERVED'; }
JMASLAK/Net-BGP
…/Validation.pm6 :93:
if 4_200_000_000 $asn 4_294_967_294 { return 'PRIVATE'; }
JNTHN/cro
…/app.js :69516:
// Apply padding? Note that since r1 r0, da1 da0.
JNTHN/cro
…/app.js :74542:
* for Small devices Tablets (768px)
JNTHN/cro
…/app.js :74550:
* for Medium devices Desktops (992px)
JNTHN/cro
…/app.js :74558:
* for Large devices Desktops (1200px)
TITSUKI/Random-Choice
…/bench.p6 :13:
sub choice(:$size where * 1 = 1, :@p where abs(1 - .sum) < 1e-3) {
TYIL/App-Assixt
…/Upload.pm6 :22:
while ($tries $config<pause><tries>) {
TYIL/IRC-Client-Plugin-UrlTitle
…/TypeFormatters.pm6 :26:
while (1000 < $size && $suffix-indice @suffixes.end) {
VRURG/IP-Addr
…/README.md :492:
`infix <= / infix ( $addr1, $addr2 )`
VRURG/IP-Addr
…/README.md :502:
`infix >= / infix ( $addr1, $addr2 )`
VRURG/IP-Addr
…/Addr.pm6 :489:
=head2 C«infix <= / infix ( $addr1, $addr2 )»
VRURG/IP-Addr
…/Addr.pm6 :497:
=head2 C«infix >= / infix ( $addr1, $addr2 )»
VRURG/IP-Addr
…/Addr.pm6 :642:
multi infix:<< >> ( IP::Addr:D $a, IP::Addr:D $b ) is export {
VRURG/IP-Addr
…/Addr.pm6 :646:
multi infix:<< >> ( IP::Addr:D $a, Str:D $b ) is export {
VRURG/IP-Addr
…/Addr.pm6 :650:
multi infix:<< >> ( Str:D $a, IP::Addr:D $b ) is export {
VRURG/IP-Addr
…/Addr.pm6 :680:
multi infix:<< >> ( IP::Addr:D $a, IP::Addr:D $b ) is export {
VRURG/IP-Addr
…/Addr.pm6 :684:
multi infix:<< >> ( IP::Addr:D $a, Str:D $b ) is export {
VRURG/IP-Addr
…/Addr.pm6 :688:
multi infix:<< >> ( Str:D $a, IP::Addr:D $b ) is export {
VRURG/IP-Addr
…/Handler.pm6 :213:
( $!first-addr $ip.int-first-ip and $!first-addr $ip.int-last-ip ) ||
VRURG/IP-Addr
…/Handler.pm6 :214:
( $!last-addr $ip.int-first-ip and $!last-addr $ip.int-last-ip ) ||
VRURG/IP-Addr
…/Handler.pm6 :215:
( $ip.int-first-ip $!first-addr and $ip.int-first-ip $!last-addr ) ||
VRURG/IP-Addr
…/Handler.pm6 :216:
( $ip.int-last-ip $!first-addr and $ip.int-last-ip $!last-addr )
VRURG/IP-Addr
…/Handler.pm6 :278:
multi method to-int ( @ntets where { $_.elems self.n-tets } --> Int ) {
VRURG/IP-Addr
…/Handler.pm6 :283:
multi method to-int ( *@ntets where { $_.elems self.n-tets } --> Int ) { samewith( @ntets ) }
VRURG/IP-Addr
…/040-ipv4-ops.t :41:
ok $ip2 "10.11.12.0/24", "network is <= then itself in Str form";
VRURG/IP-Addr
…/041-ipv6-ops.t :39:
ok $ip2 "600d::f00d/112", "network is <= then itself in Str form";
VRURG/OO-Plugin
…/patch-doc.p6 :75:
$.replaced ||= Version.new( $m ) $!ver;
VRURG/OO-Plugin
…/040-order.t :253:
bail-out "expected %variant<count> plugins, generated " ~ @plugins.elems if @plugins.elems %variant<count>;
WARRINGD/Font-AFM
…/AFM.pm :417:
"≅" => "congruent", "≈" => "approxequal", "" => "notequal", "≡"
WARRINGD/Font-AFM
…/AFM.pm :418:
=> "equivalence", "" => "lessequal", "" => "greaterequal", "⊂"
WARRINGD/PDF-Class
…/Exponential.pm :16:
has Numeric $.N is entry(:required); # (Required) The interpolation exponent. Each input value x will return n values, given by yj = C0j + xN × (C1j − C0j ), for 0 j < n.
WARRINGD/PDF-ISO_32000
…/Lab_colour_space.pm6 :27:
amina* amax
WARRINGD/PDF-ISO_32000
…/Lab_colour_space.pm6 :29:
bminb* bmax
WARRINGD/PDF-ISO_32000
…/Lab_colour_space_entries.html :125:
amina* amax
WARRINGD/PDF-ISO_32000
…/Lab_colour_space_entries.html :133:
bminb* bmax
WARRINGD/PDF-ISO_32000
…/Lab_colour_space_entries.json :23:
"(Optional) An array of four numbers [ a min a max b min b max ] that shall specify the range of valid values for the a* and b* (B and C) com…
0racle/p6-Net-Netmask
…/03-compare.t :26:
ok $net1.sk $net2.sk, "Inequality of two N::N objects (diff netmask)";
0racle/p6-Net-Netmask
…/03-compare.t :34:
ok $net1 $net2, ".8 .64";
0racle/p6-Net-Netmask
…/03-compare.t :37:
ok $net1 $net2, ".8.sk .64.sk";
0racle/p6-Net-Netmask
…/03-compare.t :42:
ok $net1 $net2, "192 10";
0racle/p6-Net-Netmask
…/03-compare.t :45:
ok $net1.sk $net2.sk, "192.sk 10.sk";
AlexDaniel/orgsleep
…/bdf2json :51:
{ @bitmap.unshift: () for ^($y-shift.abs) } if $y-shift < 0 and @bitmap $min-height;
AlexDaniel/orgsleep
…/orgsleep :175:
for 0, * + 7 …^ * $graph-width { # date
AlexDaniel/orgsleep
…/orgsleep :184:
draw-text $day, $x - ① - ② × ($day10), $y + ⑥ + ⑥ × $lower, $COLOR-BORDER, :1size
AlexDaniel/orgsleep
…/orgsleep :218:
if $new-dt - $last<datetime> $NO-DATA-THRESHOLD {
bduggan/p6-jupyter-kernel
…/math.ipynb :40:
" ( [+] @a Z× @b )² ( [+] @a»² ) × ( [+] @b»² )\n",
bduggan/p6-jupyter-kernel
…/Autocomplete.pm6 :11:
constant equality-operators = << ≅ == != <=> =:= === =~= >>;
bduggan/p6-jupyter-kernel
…/Autocomplete.pm6 :12:
constant less-than-operators = << < <= >>;
bduggan/p6-jupyter-kernel
…/Autocomplete.pm6 :13:
constant greater-than-operators = << > >= >>;
bduggan/p6-jupyter-kernel
…/05-autocomplete.t :18:
is $c.complete('<'), (0, 1, << < <= >>), 'less than';
bduggan/p6-jupyter-kernel
…/05-autocomplete.t :35:
ok $beer.elems 30, '30 or fewer results';
bduggan/p6-jupyter-kernel
…/05-autocomplete.t :39:
ok '' ∈ @$got, 'found less-than';
bduggan/p6-jupyter-kernel
…/05-autocomplete.t :43:
ok '' ∈ @$got, 'found ';
cosimo/perl6-cache-memcached
…/Memcached.pm :127:
elsif !%host_dead{$host} || %host_dead{$host} now {
gfldex/perl6-meta6-bin
…/bin.pm6 :423:
loop (my $attempt = 1; $attempt 3; $attempt++) {
perl6/Blin
…/blin.p6 :290:
$str ~= ‘ (left: ’ ~ @undone».name ~ ‘)’ if @undone 5;
perl6/Blin
…/Processing.pm6 :423:
if $result<signal> 0 {
perl6/Blin
…/Processing.pm6 :468:
if $bisect-start<exit-code> 0 or $bisect-old<exit-code> 0 {
perl6/doc
…/operators.pod6 :35:
C | Chaining infix | != == < <= > >= eq ne lt le gt ge ~~ === eqv !eqv =~= ≅ (elem) (cont) (<) (>) (<=) (>=) (<\+) (>\+) ∈ ∉ ∋ ∌ ⊂ ⊄ ⊃ ⊅ ⊆ ⊈ ⊇ ⊉ ≼ ≽
perl6/doc
…/operators.pod6 :1652:
=head2 infix C«»
perl6/doc
…/operators.pod6 :1680:
=head2 infix C«»
perl6/doc
…/operators.pod6 :1708:
=head2 infix C«»
perl6/doc
…/unicode_ascii.pod6 :52:
X<|«>X<|»>X<|×>X<|÷>X<|>X<|>X<|>X<|−>X<|∘>X<|≅>X<|π>X<|τ>X<|𝑒>X<|∞>X<|…>X<|‘>X<|’>X<|‚>X<|“>X<|”>X<|„>X<|「>X<|」>X<|⁺…
perl6/doc
…/unicode_ascii.pod6 :60:
| U+2264 | <= |
perl6/doc
…/unicode_ascii.pod6 :61:
| U+2265 | >= |
perl6/doc
…/unicode_ascii.pod6 :62:
| U+2260 | != |
perl6/doc
…/Complex.pod6 :168:
where the real part is 0 and the imaginary part has the same
perl6/doc
…/Htmlify.pm6 :55:
when 'A'.ord *.ord 'Z'.ord {
perl6/whateverable
…/Bisection.pm6 :71:
if $status 0 {
perl6/whateverable
…/Bisection.pm6 :127:
if $old-exit-signal 0 {
perl6/whateverable
…/Bisection.pm6 :144:
if $old-exit-code 0 {
perl6/whateverable
…/Bits.pm6 :31:
$max $str.chars ?? $str !! $str.substr(0, $cutoff - 1) ~ ‘…’
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 :65:
<git rev-parse --verify>, $commit).exitcode 0; # make sure that $commit is valid
perl6/whateverable
…/Builds.pm6 :71:
return if $result<exit-code> 0;
perl6/whateverable
…/Builds.pm6 :161:
‘git’, ‘rev-parse’, ‘--verify’, $<start>).exitcode 0 {
perl6/whateverable
…/Builds.pm6 :165:
‘git’, ‘rev-parse’, ‘--verify’, $<end>).exitcode 0 {
perl6/whateverable
…/Builds.pm6 :170:
grumble ‘Couldn't find anything in the range’ if $result<exit-code> 0;
perl6/whateverable
…/Heartbeat.pm6 :34:
$sig-compat = 10 if $*PERL.compiler.version v2018.05;
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
…/Processing.pm6 :117:
if .<size> 10_000_000 {
perl6/whateverable
…/Running.pm6 :42:
while run(:err(Nil), ‘mkdir’, ‘--’, $build-path).exitcode 0 {
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 :127:
grumble $output if $result<exit-code> 0 or $result<signal> 0;
perl6/whateverable
…/pull-gh :46:
if $response.header.hash<X-RateLimit-Remaining>[0] 5 { # github-friendly throttling
perl6/whateverable
…/Benchable.p6 :49:
if $result<exit-code> 0 {
perl6/whateverable
…/Benchable.p6 :132:
if abs(%times{@commits[$x]}<min> - %times{@commits[$x + 1]}<min>) %times{@commits[$x]}<min> × 0.1 {
perl6/whateverable
…/Benchable.p6 :153:
if @commits ITERATIONS {
perl6/whateverable
…/Bisectable.p6 :118:
if $old-result<signal> 0 {
perl6/whateverable
…/Bisectable.p6 :137:
grumble ‘Failed to run 「bisect start」’ if $bisect-start<exit-code> 0;
perl6/whateverable
…/Bisectable.p6 :138:
grumble ‘Failed to run 「bisect old …”」’ if $bisect-old<exit-code> 0;
perl6/whateverable
…/Bisectable.p6 :141:
if $init-result<exit-code> 0 {
perl6/whateverable
…/Bisectable.p6 :149:
if $old-result<signal> $new-result<signal> { # Signal
perl6/whateverable
…/Bisectable.p6 :154:
} elsif $old-result<exit-code> $new-result<exit-code> { # Exit code
perl6/whateverable
…/Bisectable.p6 :160:
if $old-result<signal> 0 {
perl6/whateverable
…/Bisectable.p6 :186:
if $bisect-status 0 {
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
…/Evalable.p6 :71:
if $good-only and ($result<signal> 0 or $result<signal> == SIGHUP) {
perl6/whateverable
…/Evalable.p6 :73:
return if $result<signal> 0;
perl6/whateverable
…/Evalable.p6 :74:
return if $result<exit-code> 0;
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 :90:
if $CONFIG<message-limit> ($reply-start, $output, $reply-end).map(*.encode.elems).sum {
perl6/whateverable
…/Greppable.p6 :100:
grumble ‘Sorry, can't do that’ if $result<exit-code> 0 | 1 or $result<signal> 0;
perl6/whateverable
…/Nativecallable.p6 :23:
if @pruned-output 10 {
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 :122:
when .chars $SHA-LENGTH {
perl6/whateverable
…/Releasable.p6 :176:
$summary ~= “{+@tickets} blocker{@tickets 1 ?? ‘s’ !! ‘’}”;
perl6/whateverable
…/Squashable.p6 :98:
sub utc-hour($secs) { ($secs 0 ?? ‘+’ !! ‘-’) ~ abs $secs ÷ 60 ÷ 60 }
perl6/whateverable
…/Squashable.p6 :284:
notify :silent, “$login++ pushed $commits commit{$commits 1 ?? ‘s’ !! ‘’}”;
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 :168:
return $output if $result<exit-code> 0 or $result<signal> 0;
perl6/whateverable
…/build.p6 :107:
return if $++ 10; # refuse to build too many commits at once
perl6/whateverable
…/benchable.t :57:
/^ <me($t)>‘, ¦HEAD: «’ (\d+)\.\d+ <?{ $0 2 }> ‘»’ $/,
perl6/whateverable
…/Testable.pm6 :28:
$sig-compat = SIGBUS if v2018.04 $*PERL.compiler.version v2018.05;
samgwise/Net-OSC
…/collate-readme.p6 :18:
die "Failed '@cmd[]' when collecting content." if $p.exitcode 0;
zoffixznet/perl6-WWW-vlc-Remote
…/Remote.pm6 :37:
if $!duration 0 {
zoffixznet/perl6-WhereList
…/README.md :12:
subset StrArray of Array where all-items Str, *.chars 3, *.contains: any <o a e>;
zoffixznet/perl6-WhereList
…/wherelist.p6 :4:
subset StrArray of Array where all-items *.chars 3, Str, *.contains: any <o a e>;
zoffixznet/perl6-WhereList
…/01-basic.t :7:
where all-items Str, *.chars 3, *.contains: any <o a e>;
zoffixznet/perl6-p6lert
…/p6lert :42:
$block-exit = True if $block-on and %s{$block-on} %s{.severity};
zostay/p6-Path-Router
…/Router.pm6 :166:
) || die X::RouteNotMatched.new("LENGTH DID NOT MATCH ({$required.elems} required {$required.elems <= @keys.elems ?? "" !! "≰"} {@keys…
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment