push @methods, map { [ $r, $_ ] } grep { 
            *{"${r}::${_}"}{CODE} 
        } keys %{"${r}::"};