EEL thinking

events.rakumod

enum Area <kanto johto hoenn sinnoh unova kalos alola>;

event Hot {
    has Str  $.type where * eq "temperature";
    has Area $.area;
    has Int  $.value where * > 40;
}

event Dry {
    has Str  $.type where * eq "humidity";
    has Area $.area;
    has UInt $.value where * < 20;
}

event FireRisk   {
    method EMIT($/) {
        type        => "fire-risk",
        area        => $<temp><area>,
        temperature => $<temp><value>,
        humidity    => $<hum><value>,
    }

    pattern TOP {
        [ <temp=Hot> & <hum=Dry> ] 5min
        { $<temp><area> == $<hum><area> }
    }
}