view release on metacpan or  search on metacpan

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

28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
        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;