daydreaming syntax for a Perl 6 IRC client module

use v6;
use IRC::Client;

class BirthdayTracker is IRC::Client {
    has $!name = 'birdie';
    has %!birthdays;
    has %!last-congratulated;

    regex date { ... }

    method record(Session $_) is triggered(
        /:sigspace $name ':' my birthday is <date>/) {

        %!birthdays{.person} = $/<date>;
        .reply("Ok, $.person");
    }

    method congratulate(Session $_) is triggered(*) {
        if %!birthdays{.person} === today()
           && %!last-congratulated{.person} < today() {

            .reply("Hey, happy birthday, $.person!");
            %!last-congratulated{.person} = today();
        }
    }
}