view release on metacpan or  search on metacpan

lib/App/perlminlint/Plugin/LintT.pm  view on Meta::CPAN

sub handle_match {
  (my MY $plugin, my $fn) = @_;
  $fn =~ m{\.t\z}i
    and $plugin;
}

sub gather_opts {
  (my MY $plugin, my $fn) = @_;

  my @opts = $plugin->SUPER::gather_opts($fn);

  #
  # Add -Ilib if $fn looks like t/.../*.t
  #
  if (my ($basedir) = $fn =~ m{^(.*/|)t/}) {
    my $libdir = $basedir . "lib";
    push @opts, "-I$libdir" if -d $libdir;
  }

  @opts;