view release on metacpan or  search on metacpan

lib/Alien/Build/Plugin/Download/GitHub.pm  view on Meta::CPAN

97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
    my $uri = URI->new($url || $build->meta_prop->{start_url});
    $uri->host eq 'api.github.com' && $uri->scheme eq 'https';
  };
 
# Temporarily patch the log method so that we don't log the PAT
my $log = \&Alien::Build::log;
no warnings 'redefine';
local *Alien::Build::log = sub {
  if(defined $secret)
  {
    $_[1] =~ s/\Q$secret\E/ '#' x length($secret) /eg;
  }
  goto &$log;
};
use warnings;
 
my $res = $orig->($build, $url, @the_rest, %gh_fetch_options);
if($res->{type} eq 'file' && $res->{filename} =~ qr{^(?:releases|tags)$})
{
  my $rel;
  if($res->{content})

t/00_diag.t  view on Meta::CPAN

32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
sub spacer ()
{
  diag '';
  diag '';
  diag '';
}
 
pass 'okay';
 
my $max = 1;
$max = $_ > $max ? $_ : $max for map { length $_ } @modules;
our $format = "%-${max}s %s";
 
spacer;
 
my @keys = sort grep /(MOJO|PERL|\A(LC|HARNESS)_|\A(SHELL|LANG)\Z)/i, keys %ENV;
 
if(@keys > 0)
{
  diag "$_=$ENV{$_}" for @keys;