rt/lib/RT/Pod/Search.pm

   1 use strict;
   2 use warnings;
   3
   4 package RT::Pod::Search;
   5 use base 'Pod::Simple::Search';
   6
   7 sub new {
   8     my $self = shift->SUPER::new(@_);
   9        $self->laborious(1)              # Find scripts too
  10             ->limit_re(qr/(?<!\.in)$/)  # Filter out .in files
  11             ->inc(0);                   # Don't look in @INC
  12     return $self;
  13 }
  14
  15 1;