view release on metacpan or  search on metacpan

xt/release/release.yml  view on Meta::CPAN

    - libs

pod_coverage:
  skip: 0
  # format is "Class#method" or "Class", regex allowed
  # for either Class or method.
  private: []

unused_vars:
  skip: 0
  global:
    ignore_vars: []
  module: {}

xt/release/unused_vars.t  view on Meta::CPAN

    }
    else
    {
      push @modules, $child if $child->basename =~ /\.pm$/;
    }
  }
}

plan tests => scalar @modules;

my %global = (
  ignore_vars => { map { $_ => 1 } @{ $config->{unused_vars}->{global}->{ignore_vars} } },
);
if(defined $config->{unused_vars}->{global}->{ignore_if})
{
  $global{ignore_if} = eval $config->{unused_vars}->{global}->{ignore_if};
  die $@ if $@;
}

foreach my $file (@modules)
{
  my @mod = $file->components;
  shift @mod; # get rid of '.';
  shift @mod; # get rid of 'lib';
  $mod[-1] =~ s/\.pm$//;
  my $mod = join '::', @mod;
  
  my %local = %global;
  foreach my $ignore (@{ $config->{unused_vars}->{module}->{$mod}->{ignore_vars} || []})
  {
    $local{ignore_vars}->{$ignore} = 1;
  }
  if(defined $config->{unused_vars}->{module}->{$mod}->{ignore_if})
  {
    $local{ignore_if} = eval $config->{unused_vars}->{module}->{$mod}->{ignore_if};
    die $@ if $@;
  }