*{ref($obj).'::does'} = sub {
    # do stuff you want
}