This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
feature.pl: Generate list of feature bundles in pod
authorFather Chrysostomos <sprout@cpan.org>
Fri, 23 Dec 2011 00:52:10 +0000 (16:52 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 24 Dec 2011 17:25:15 +0000 (09:25 -0800)
regen/feature.pl

index 58a4590..4f439e9 100755 (executable)
@@ -168,6 +168,24 @@ for (sort keys %Aliases) {
 
 
 while (<DATA>) {
+    last if /^PODTURES$/ ;
+    print $pm $_ ;
+}
+
+select +(select($pm), $~ = 'PODTURES')[0];
+format PODTURES =
+  ^<<<<<<<< ^<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<~~
+$::bundle, $::feature
+.
+
+for ('default', sort grep /\.\d[02468]/, keys %feature_bundle) {
+    $::bundle = ":$_";
+    $::feature = join ' ', @{$feature_bundle{$_}};
+    write $pm;
+    print $pm "\n";
+}
+
+while (<DATA>) {
     print $pm $_ ;
 }
 
@@ -443,17 +461,7 @@ The following feature bundles are available:
 
   bundle    features included
   --------- -----------------
-  :default  array_base
-
-  :5.10     say state switch array_base
-
-  :5.12     say state switch unicode_strings array_base
-
-  :5.14     say state switch unicode_strings array_base
-
-  :5.16     say state switch unicode_strings
-            unicode_eval evalbytes current_sub
-
+PODTURES
 The C<:default> bundle represents the feature set that is enabled before
 any C<use feature> or C<no feature> declaration.