Add bitwise feature feature
authorFather Chrysostomos <sprout@cpan.org>
Sun, 4 Jan 2015 06:20:17 +0000 (22:20 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sun, 1 Feb 2015 06:03:50 +0000 (22:03 -0800)
feature.h
lib/feature.pm
regen/feature.pl

index 370896e..ba796eb 100644 (file)
--- a/feature.h
+++ b/feature.h
         FEATURE_IS_ENABLED("switch")) \
     )
 
+#define FEATURE_BITWISE_IS_ENABLED \
+    ( \
+       CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_CUSTOM && \
+        FEATURE_IS_ENABLED("bitwise") \
+    )
+
 #define FEATURE_EVALBYTES_IS_ENABLED \
     ( \
        CURRENT_FEATURE_BUNDLE == FEATURE_BUNDLE_515 \
index de237b7..e1e17d3 100644 (file)
@@ -12,6 +12,7 @@ our %feature = (
     say             => 'feature_say',
     state           => 'feature_state',
     switch          => 'feature_switch',
+    bitwise         => 'feature_bitwise',
     evalbytes       => 'feature_evalbytes',
     postderef       => 'feature_postderef',
     array_base      => 'feature_arybase',
@@ -28,7 +29,7 @@ our %feature_bundle = (
     "5.10"    => [qw(array_base say state switch)],
     "5.11"    => [qw(array_base say state switch unicode_strings)],
     "5.15"    => [qw(current_sub evalbytes fc say state switch unicode_eval unicode_strings)],
-    "all"     => [qw(array_base current_sub evalbytes fc lexical_subs postderef postderef_qq refaliasing say signatures state switch unicode_eval unicode_strings)],
+    "all"     => [qw(array_base bitwise current_sub evalbytes fc lexical_subs postderef postderef_qq refaliasing say signatures state switch unicode_eval unicode_strings)],
     "default" => [qw(array_base)],
 );
 
index 0d41d3b..a402626 100755 (executable)
@@ -25,6 +25,7 @@ my %feature = (
     say             => 'say',
     state           => 'state',
     switch          => 'switch',
+    bitwise         => 'bitwise',
     evalbytes       => 'evalbytes',
     postderef       => 'postderef',
     array_base      => 'arybase',