use B 'sub_generation';
sub show_cache_version { print sub_generation, "\n" }

show_cache_version;    # 554
{
    show_cache_version;    # 554
    local *call = sub { };
    show_cache_version;    # 555 <- @ISA cache reset
}
show_cache_version;        # 555