--regex-perl=/^\s*has\s+['"]?([0-9a-zA-Z_]+)/\1/a,attribute/
    --regex-perl=/^\s*with\s+(['"])(.+)\1/\2/r,role/
    --regex-perl=/^\s*extends\s+(['"])(.+)\1/\2/e,extends/
    --regex-perl=/^\s*use\s+([^ ;]+)/\1/u,use/

##</code><code>##

    let tlist_perl_settings='perl;u:use;p:package;r:role;e:extends;c:constant;a:attribute;s:subroutine;l:label'

##</code><code>##

    let Tlist_Show_One_File = 1