File Coverage

blib/lib/SWISH.pm

Criterion	Covered	Total	%
statement	12	63	19.0
branch	0	34	0.0
condition	0	8	0.0
subroutine	4	13	30.7
pod	2	2	100.0
total	18	120	15.0

package SWISH;
use strict;

use vars (qw/$VERSION $errstr/);

$VERSION = 0.08;


sub connect {
    my $class = shift;
    my $driver = shift;


    unless ( $driver ) {
        $errstr = "Must supply Access Method";
        return;
    }

    eval { require "SWISH/$driver.pm"; };
    if ( $@ ) {
        $errstr = $@;
        return;
    }


    $driver = "SWISH::$driver";

    my $drh;

    eval { $drh = $driver->new( @_ ); };

    return $drh if ref $drh;

    $errstr = $driver->errstr || $@ || "Unknown error calling $driver->new()";
    return;
}

sub get_header {
    my ($self, $name, $index) = @_;

    # Return the entire hash
    die "SWISH headers not defined\n" unless ref $self->{_indexheaders};
    return $self->{_indexheaders} unless $name;

    # Return the default headers
    unless ( $index ) {
        return unless exists $self->{_indexheaders}{lc $name};
        return wantarray
               ? @{$self->{_indexheaders}{lc $name}}
               : $self->{_indexheaders}{lc $name}->[0];
    }


    # Return for a specific index file

    die "Invalid index file name '$index' passed to get_header()\n"
        unless exists $self->{_indexheaders}{INDEX}{$index};

    return unless exists $self->{_indexheaders}{INDEX}{$index}{lc $name};
    return wantarray
           ? @{$self->{_indexheaders}{INDEX}{$index}{lc $name}}
           : $self->{_indexheaders}{INDEX}{$index}{lc $name}->[0];


}



package SWISH::Results;
use strict;
use vars ( '$AUTOLOAD' );



sub new {
    my ( $class, $attr ) = @_;
    my %attr = %$attr if $attr;
    return bless \%attr, $class;
}

# Some default methods
sub disconnect {}
sub close {}

sub as_string {
    my $self = shift;
    my $delimiter = shift || ' ';

    my $blank = $delimiter =~ /^\s+$/;

    my @properties = qw/swishrank swishdocpath swishtitle swishdocsize/;

    push @properties, @{$self->{_settings}{properties}} if $self->{_settings}{properties};

    return join $delimiter, map { $blank && /\s/ ? qq["$_"] : $_ }
                            map( { $self->{$_} || '???' } @properties ),
                            "($self->{swishreccount}/$self->{total_hits})" ;
}


sub DESTROY {
}

sub field_names {
    my $self = shift;
    return grep { defined $self->{$_} } grep { !/^_/ } keys %$self;
}



sub AUTOLOAD {
    my $self = shift;

    if ( $AUTOLOAD =~ /.*::(\w+)/ ) {
        my $attribute = $1;

        return defined $self->{$attribute} ? $self->{$attribute} : undef;
    }

}


1;
__END__