1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
package Devscripts::Uscan::Templates::Metacpan;
use strict;
sub transform {
my $watchSource = shift;
delete $watchSource->{template};
$watchSource->{mode} = 'metacpan';
my $dist = delete $watchSource->{dist} // '';
$dist =~ s/::/-/g;
$watchSource->{source} ||= $dist;
die 'Missing Dist' unless $watchSource->{source};
$watchSource->{matchingpattern}
||= "https://cpan.metacpan.org/.*$watchSource->{source}-$watchSource->{versiontype}\@ARCHIVE_EXT@";
$watchSource->{pgpmode} ||= 'none';
return $watchSource;
}
1;
|
