$tname =~ m/[declaration_]?name="(\w+[:]?.\w+[:]?.\w+); #### all_members name="~BAR" protection="public" scope="Panoply::BAR" #### ret_ancestors sub {@list = join(" => ", @_)}, $nitemstr, $1;
## all_members name="~BAR" protection="public" scope="Panoply::BAR" ##
## ret_ancestors sub {@list = join(" => ", @_)}, $nitemstr, $1;