File Coverage

blib/lib/Solr.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 Solr;

use 5.006;
use strict;
use warnings;
use Solr::Schema;
use Solr::HTTPUpdateHandler
  qw(add _fixXmlEndTag delete_by_id delete_by_query commit optimize _postRequest add_by_file _logAddDeletes _logPost post_file);
use POSIX qw(strftime);

use Log::Log4perl;

require Exporter;

our @ISA = qw(Exporter);

our %EXPORT_TAGS = (
    'all' => [
        qw(

          )
    ]
);

our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } );

our @EXPORT = qw(

);

our $VERSION = '0.03';

# Preloaded methods go here.

sub new {

    my $class = shift;

    my (%params) = @_;

    my $self = \%params;

    bless( $self, $class );

    $self->_init;

    return $self;
}

sub _init {

    my $self = shift;

    # date string for default log file naming.
    my $date = strftime "%Y%m%d", localtime;

    # Logging (optional params that can be modified from default in initialization).
    $self->{log_dir}   ||= "./";
    $self->{info_log}  ||= "info.$date.log";
    $self->{error_log} ||= "error.$date.log";
    $self->{debug_log} ||= "debug.$date.log";

    my %log4_init;
    # unless $self->{logging_on explitly turned off by setting to 0, turn on default logging.
    unless ($self->{disable_logging})  {
        %log4_init = (
            "log4perl.logger"=> "INFO, AppWarn, AppError",

            "log4perl.filter.MatchError" => "Log::Log4perl::Filter::LevelMatch",
            "log4perl.filter.MatchError.LevelToMatch"  => "ERROR",
            "log4perl.filter.MatchError.AcceptOnMatch" => "true",

            "log4perl.filter.MatchInfo"  => "Log::Log4perl::Filter::LevelMatch",
            "log4perl.filter.MatchInfo.LevelToMatch" => "INFO",
            "log4perl.filter.MatchInfo.AcceptOnMatch" => "true",

            "log4perl.appender.AppError" => "Log::Log4perl::Appender::File",
            "log4perl.appender.AppError.filename" => "$self->{log_dir}/$self->{error_log}",
            "log4perl.appender.AppError.layout" => "Log::Log4perl::Layout::PatternLayout",
            "log4perl.appender.AppError.layout.ConversionPattern" => '%d %p [%c] (%F line %L) %m%n',
            "log4perl.appender.AppError.Filter"   => "MatchError",

            "log4perl.appender.AppWarn" => "Log::Log4perl::Appender::File",
            "log4perl.appender.AppWarn.filename" => "$self->{log_dir}/$self->{info_log}",
            "log4perl.appender.AppWarn.layout"   => "Log::Log4perl::Layout::PatternLayout",
            "log4perl.appender.AppWarn.layout.ConversionPattern" => '%d %p %m%n',
            "log4perl.appender.AppWarn.Filter"   => "MatchInfo",
        );
    }
    #otherwise send fatal errors to the screen and ignore other messages.
    else {
        %log4_init = (
            "log4perl.logger"=> "FATAL,Screen",
            "log4perl.appender.Screen" => "Log::Log4perl::Appender::Screen",
            "log4perl.appender.Screen.layout" => "SimpleLayout",
        );

    }


    # blessed reference to log. Log4perl handles passing this into subclasses
    $self->{log} = Log::Log4perl->init( \%log4_init );

    $self->{schema} = Solr::Schema->new(
        schema => $self->{schema},
        url    => $self->{url},
        port   => $self->{port},
    );
    # may want to put a conditional around this in the event this class is also used to interface
    # future Search and resultHandler modules Yousef Ourabi is working on.
    $self->{HTTPUpdateHandler} = Solr::HTTPUpdateHandler->new(
        schema => $self->{schema},
    );

    return $self;

}

1;
__END__