jonathanstowe

#!/usr/bin/env raku

use Cro::WebSocket::Client;
use EventSource::Server;
use JSON::Fast;
use Cro::HTTP::Router;
use Cro::HTTP::Server;


my $client = Cro::WebSocket::Client.new: :json, uri => 'wss://jetstream1.us-east.bsky.network/subscribe';

jonathanstowe

#!/usr/bin/env raku

use Cro::WebSocket::Client;
use NCurses;

my $win = initscr;
die "Failed to initialize ncurses\n" unless $win.defined;


my $client = Cro::WebSocket::Client.new: :json, uri => 'wss://jetstream1.us-east.bsky.network/subscribe';

jonathanstowe

#!/usr/bin/env raku

use v6;

use Manifesto;
use Cro::HTTP::Client;


my $manifesto = Manifesto.new;

jonathanstowe

using System;
using System.Text.RegularExpressions;

public class Example
{
   public static void Main()
   {
      string pattern = "^\\d+$";
      string numbers = "௫๓௫๓";
                        

jonathanstowe

#!/usr/bin/env raku

role ObserverSignal {
}

multi sub trait_mod:<is> ( Method $m, :$observer-signal! ) {
    $m does ObserverSignal;
}

role Observable {

jonathanstowe

# Or if you want to be check each element then you can
# create a subset that does so
subset ArrayOfInt of Array where { .all ~~ Int };

sub d(Int $a, Int $b --> ArrayOfInt) {
     [$a, $b];
}

say d(1, 2);

jonathanstowe

use Cro::HTTP::Client;

my $c;
react {
    whenever Cro::HTTP::Client.get("http://cannibal.local") -> $v {
        whenever $v.body-text -> $m {
            $c = $m;
            done;
        }
    }

jonathanstowe

use Cro::HTTP::Router;
use Cro::HTTP::Server;
use JSON::Class;
use Cro::HTTP::BodySerializerJSONClass;

class Foo does JSON::Class {
   has DateTime $.date is marshalled-by('Str') = DateTime.now;
}

my $app = route {

jonathanstowe

use Cro::HTTP::BodySerializers;
use JSON::Class;

class Foo::HTTP::BodySerializerJSONClass does Cro::HTTP::BodySerializer {
    method is-applicable(Cro::HTTP::Message $message, $body --> Bool) {
        with $message.content-type {
            (.type eq 'application' && .subtype eq 'json' || .suffix eq 'json') && ($body ~~ JSON::Class );
        }
        else {
            False

jonathanstowe

class Tuple does Positional {
    has $.a;
    has $.b;

    multi method AT-POS(0) {
        $!a;
    }
    multi method AT-POS(1) {
        $!b;
    }