All pastes #111225 Raw Edit

Miscellany

public text v1 · immutable
·published 2006-08-02 07:12 UTC
rendered paste body
package Processor::Hello;

use strict;
use warnings;

sub new { return bless {}; }

sub process {
    my($self, $hash) = @_;

    local $_ = $hash->{message};

    return undef unless /^hello|hi|hey|hia|yo/;
    return "Hello!";
}

1;