view release on metacpan or  search on metacpan

lib/Cache/Keys/DSL.pm  view on Meta::CPAN

        Exporter->import('import');
    }

    no strict qw/refs/;
    no warnings qw/once/;
    *{"${caller}::with_version"} = \&_with_version;
    @{"${caller}::EXPORT_OK"}    = ();
    %{"${caller}::EXPORT_TAGS"}  = (all => \@{"${caller}::EXPORT_OK"});
}

sub _with_version($$) {## no critic
    my $name    = shift;
    my $version = shift;
    return [$name, $version];
}

sub _key {
    my $base_version = shift;
    return sub ($) { ## no critic
        my $name = shift;