ains META.json in repository.
my $metafname = File::Spec->catfile( [<*>]->[0], 'META.json' );
unless ( -f $metafname ) {
die "$repository does not have a META.json\n";
that you need to set up git repository as a installable git repo,
that is, you need to put a META.json in your repository.
If you are using L<Minilla> or L<Milla>, your repository is already ready to
e::Spec ();
use File::stat qw( stat );
use IO::File::AtomicChange ();
use JSON::PP ();
use Types::Standard qw( Bool HashRef Str );
use Types::Path::Tiny
my $self = shift;
return do {
if ( open my $fh, '<', $self->filename ) {
JSON::PP->new->utf8->decode(
do { local $/; <$fh> }
);
}
e
filename {
my $self = shift;
return File::Spec->catfile( $self->directory, 'orepan2-cache.json' );
}
sub is_hit {
my ( $self, $stuff ) = @_;
my $entry = $self->data->{$stuff};
r
, $dir, $archive_file ) = @_;
my $guard = pushd( glob("$dir/*") );
for my $mfile ( 'META.json', 'META.yml', 'META.yaml' ) {
next unless -f $mfile;
my $meta = eval { CPAN::Meta