scopeLocal :: SemanticUnit -> Bool
scopeLocal su
    | elem kd [Package, Class, Interface] = False
    | otherwise = rst
    where
        kd = kind su
        rst = case kd of
                Method (FUNC mds _ _ _ _) -> True
                _ -> scopeLocal (inheritFrom su)
scopeLocal :: SemanticUnit -> Bool
scopeLocal su
    | elem kd [Package, Class, Interface] = False
    | otherwise = rst
    where
        kd = kind su
        rst = case kd of
                Method (FUNC mds _ _ _ _) -> True
                _ -> scopeLocal (inheritFrom su)
scopeLocal su
    | elem kd [Package, Class, Interface] = False
    | otherwise = rst
    where
        kd = kind su
        rst = case kd of
                Method (FUNC mds _ _ _ _) -> True
                _ -> scopeLocal (inheritFrom su)