# helper functions for perl
def all_perl_packages(d):
    depchains = (d.getVar("DEPCHAIN_POST", True) or "").split()
    blacklist = ["perl-modules", "perl-misc", "perl-pod", "perl-doc"]
    for pkg in d.getVar("PACKAGES", True).split():
        if not pkg in blacklist and not any(pkg.endswith(post) for post in depchains):
            yield pkg