Add declared_refs feature feature
authorFather Chrysostomos <sprout@cpan.org>
Mon, 23 May 2016 06:40:27 +0000 (23:40 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 17 Jul 2016 18:24:07 +0000 (11:24 -0700)
feature.h
lib/feature.pm
regen/feature.pl

index 27dfd51..838d648 100644 (file)
--- a/feature.h
+++ b/feature.h
         FEATURE_IS_ENABLED("unieval")) \
     )
 
+#define FEATURE_MYREF_IS_ENABLED \
+    ( \
+       CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
+        FEATURE_IS_ENABLED("myref") \
+    )
+
 #define FEATURE_UNICODE_IS_ENABLED \
     ( \
        (CURRENT_FEATURE_BUNDLE >= FEATURE_BUNDLE_511 && \
index caa7326..ddab733 100644 (file)
@@ -20,6 +20,7 @@ our %feature = (
     refaliasing     => 'feature_refaliasing',
     postderef_qq    => 'feature_postderef_qq',
     unicode_eval    => 'feature_unieval',
+    declared_refs   => 'feature_myref',
     unicode_strings => 'feature_unicode',
 );
 
@@ -28,7 +29,7 @@ our %feature_bundle = (
     "5.11"    => [qw(array_base say state switch unicode_strings)],
     "5.15"    => [qw(current_sub evalbytes fc say state switch unicode_eval unicode_strings)],
     "5.23"    => [qw(current_sub evalbytes fc postderef_qq say state switch unicode_eval unicode_strings)],
-    "all"     => [qw(array_base bitwise current_sub evalbytes fc postderef_qq refaliasing say signatures state switch unicode_eval unicode_strings)],
+    "all"     => [qw(array_base bitwise current_sub declared_refs evalbytes fc postderef_qq refaliasing say signatures state switch unicode_eval unicode_strings)],
     "default" => [qw(array_base)],
 );
 
index e8ecece..78c7400 100755 (executable)
@@ -32,6 +32,7 @@ my %feature = (
     refaliasing     => 'refaliasing',
     postderef_qq    => 'postderef_qq',
     unicode_eval    => 'unieval',
+    declared_refs   => 'myref',
     unicode_strings => 'unicode',
     fc              => 'fc',
     signatures      => 'signatures',