Wikipedia Recent Change API

fetch-change.p6

use IO::Socket::Async::SSL;                                                                         
use JSON::Tiny;                                                                                     
                                                                                                    
my $conn = await IO::Socket::Async::SSL.connect('stream.wikimedia.org', 443);                       
$conn.print: "GET /v2/stream/recentchange HTTP/1.0\r\nHost: stream.wikimedia.org\r\n\r\n";          
                                                                                                    
react {                                                                        
    whenever $conn { 
        if $_ ~~ /^^data\:\s(\{.+\})\r*\n/ {                                             
            try { 
                CATCH {    
                  when X::JSON::Tiny::Invalid { $*ERR.say($_) } # (#1)
                }                                                                      
                my $json = from-json(~$0);                                                          
                say $json if $json<wiki> eq 'jawiki'; # (#2)                                              
            }                                                                                       
        }                                                                                           
    }                                                                                               
}                                                                                                   
                                                                                                    
$conn.close;