view release on metacpan or  search on metacpan

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

7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
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;