gistfile1.txt

use v6;

multi trait_mod:<is>(Method $m, :$signal!){
    #proto handle_call(|$) { * }
    multi handle_call(|$args){
        say $m.WHAT;
    }
    $m.wrap(&handle_call);
}

multi sub connect($sender, Method $signal, $rcpt, Method $slot){
        (&$signal).connect($sender, $rcpt, $slot);
}

class Button {
        our method pressed is signal { warn "signal fired" }
}

my Button $btn_exit .= new;
$btn_exit.pressed;