File Coverage

blib/lib/Perldoc/Search.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

###########################################
package Perldoc::Search;
###########################################
use strict;
use warnings;

our $VERSION = "0.01";

use Pod::Simple::TextContent;
use SWISH::API::Common;
use Config;
use Cwd;

###########################################
sub new {
###########################################
    my($class, %options) = @_;

    my $self = {
        dirs => [$Config{installsitearch},
                 $Config{installsitelib},
                 $Config{installarchlib},
                 $Config{installprivlib},
                ],
        swish_options => {
            swish_adm_dir => "$ENV{HOME}/.perldig",
        },
        %options,
    };

        # If the perl lib dir is symlinked, this
        # will figure out the real paths
    for(@{$self->{dirs}}) {
        my $cwd = cwd();
        chdir $_ or die "Cannot cwd to $_";
        $_ = File::Spec->rel2abs(".");
        chdir $cwd;
    }

    $self->{swish} = SWISH::API::Common->new(
        %{$self->{swish_options}}
    );

    bless $self, $class;
}

###########################################
sub relative {
###########################################
    my($self, $path) = @_;

    $path =~ s|^$_/|| for @{$self->{dirs}};
    return $path;
}

###########################################
sub update {
###########################################
    my($self) = @_;

        # Index all files in a directory and its subdirectories
    $self->{swish}->index(@{$self->{dirs}});
}

###########################################
sub search {
###########################################
    my($self, @terms) = @_;

    return $self->{swish}->search(@terms);
}

1;

__END__