sub handler ($$) {
    my ($self,$r);
    # yadda yadda
}