Hubot::Listener.pm6

Hubot::Listener.pm

use v6;

class Hubot::Listener {

    has Code $.match    is rw;
    has Code $.callback is rw; # handles cb => postcircum:<( )>
                               # .. does not work

    method call ($message --> Bool) {
        my @matching = $.match.($message);

        if @matching {
            $.callback: Hubot::Response.new: 
                robot   => self.robot,
                message => $message,
                match   => @matching;
            return True;
        }
        False;
    }
}


# vim: set ft=perl6 sts=4 sw=4 ts=4 expandtab :

HubotListener.pm

use v6;
use Hubot::Response;
class Hubot::Listener {

    has Code $.match    is rw;
    has Code $.callback is rw; # handles cb => postcircum:<( )>
                               # .. does not work

    method call ($message --> Bool) {
        my @matching = $.match.($message);

        if @matching {
            $.callback: Hubot::Response.new: 
                robot   => self.robot,
                message => $message,
                match   => @matching;
            return True;
        }
        False;
    }
}


# vim: set ft=perl6 sts=4 sw=4 ts=4 expandtab :