Implement use attrs qw(locked package);

[perl5.git] / ext / attrs / attrs.xs

diff --git a/ext/attrs/attrs.xs b/ext/attrs/attrs.xs
index dae612a..2de522a 100644 (file)
--- a/ext/attrs/attrs.xs
+++ b/ext/attrs/attrs.xs
@@ -9,6 +9,8 @@ get_flag(char *attr)
        return CVf_METHOD;
     else if (strnEQ(attr, "locked", 6))
        return CVf_LOCKED;
+    else if (strnEQ(attr, "package", 7))
+       return CVf_PACKAGE;
     else
        return 0;
 }
@@ -56,4 +58,6 @@ SV *  sub
            XPUSHs(sv_2mortal(newSVpv("method", 0)));
        if (CvFLAGS(sub) & CVf_LOCKED)
            XPUSHs(sv_2mortal(newSVpv("locked", 0)));
+       if (CvFLAGS(sub) & CVf_PACKAGE)
+           XPUSHs(sv_2mortal(newSVpv("package", 0)));