Skip to content

Instantly share code, notes, and snippets.

@xtetsuji

xtetsuji/feature-bundle.pl

Created June 16, 2024 04:22
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save xtetsuji/c264175485427959c1d1862100105039 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save xtetsuji/c264175485427959c1d1862100105039 to your computer and use it in GitHub Desktop.
Download ZIP

Revisions

  1. xtetsuji created this gist Jun 16, 2024.
    42 changes: 42 additions & 0 deletions feature-bundle.pl
    View file
    Original file line number Diff line number Diff line change
    @@ -0,0 +1,42 @@
    #!/usr/bin/env perl
    use strict;
    use warnings;
    use feature qw(say postderef);
    use Data::Dumper;

    my $table_col_separator = " | ";
    my $table_first_row_separator = "| ";
    my $table_last_row_separator = " |";

    my %bundle_seen;
    my %version_bundle_seen; # $version_bundle_seen->{"5.16"}->{"say"} ? "ok" : "ng"
    my ($current_minor) = $^V =~ /^v5\.(\d+)/;
    my @minors = grep { $_ % 2 == 0 } (10..$current_minor);
    my @versions = ("default", map { "5.$_" } @minors);
    $version_bundle_seen{$_} = +{} for @versions; # autovivification に頼らない


    for my $version ( "default", @versions ) {
    my $bundles = $feature::feature_bundle{$version};
    $bundle_seen{$_}++ for @$bundles;
    $version_bundle_seen{$version}->{$_}++ for @$bundles;
    printf "%s: %s\n", $version, join " ", @$bundles;
    }


    table_row_output("bundle", @versions);
    table_row_output( ("----") x (1 + scalar @versions) );
    for my $bundle ( sort keys %bundle_seen ) {
    table_row_output(
    $bundle,
    map { $version_bundle_seen{$_}->{$bundle} ? ":ok:" : "" } @versions
    );
    }

    sub table_row_output {
    my @rows = @_;
    printf "%s%s%s\n",
    $table_first_row_separator,
    join( $table_col_separator, @rows),
    $table_last_row_separator;
    }