# just the relevant bits and pieces
my %feature = (
    say             => 'say',
    state           => 'state',
    switch          => 'switch',
    evalbytes       => 'evalbytes',
    array_base      => 'arybase',
    current_sub     => '__SUB__',
    lexical_subs    => 'lexsubs',
    unicode_eval    => 'unieval',
    unicode_strings => 'unicode',
    fc              => 'fc',
    );

my %feature_bundle = (
     all     => [ keys %feature ],
     default => [qw(array_base)],
    "5.9.5"  => [qw(say state switch array_base)],
    "5.10"   => [qw(say state switch array_base)],
    "5.11"   => [qw(say state switch unicode_strings array_base)],
    "5.13"   => [qw(say state switch unicode_strings array_base)],
    "5.15"   => [qw(say state switch unicode_strings unicode_eval evalbytes current_sub fc)],
    "5.17"   => [qw(say state switch unicode_strings unicode_eval evalbytes current_sub fc)],
    );