lib/IRC/Client/Plugin/HNY.pm6


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

use v6;
use JSON::Tiny;
use IRC::Client;
use IRC::Client::Plugin;

unit class IRC::Client::Plugin::HNY:ver<1.001001> does IRC::Client::Plugin;


get_UTC_offsets();

multi method interval (                ) {  6  }
multi method interval (IRC::Client $irc) {
    $irc.privmsg(
        $irc.channels[0], "5 seconds passed. Time is now " ~ now
    );
}


sub get_UTC_offsets {
    my $times = from-json 'tzs.json'.IO.slurp;

    for $times -> $zone {
        say "Offset is $zone<offset>";
    }
}