—

              
package App::Wubot::Reactor::SQLite;
use Moose;
our $VERSION = '0.3.0'; # VERSION
use YAML;
use App::Wubot::Logger;
use App::Wubot::SQLite;
has 'logger'  => ( is => 'ro',
                   isa => 'Log::Log4perl::Logger',
                   lazy => 1,
                   default => sub {
                       return Log::Log4perl::get_logger( __PACKAGE__ );
                   },
               );
has 'sqlite'  => ( is => 'ro',
                   isa => 'HashRef',
                   default => sub { {} },
               );
sub react {
    my ( $self, $message, $config ) = @_;
    my $sqlite;
    # if we don't have a sqlite object for this file, create one now
    unless ( $self->sqlite->{ $config->{file} } ) {
        $self->sqlite->{ $config->{file} } = App::Wubot::SQLite->new( { file => $config->{file} } );
    }
    if ( $config->{update} ) {
        my $update_where;
        for my $field ( keys %{ $config->{update} } ) {
            $update_where->{ $field } = $message->{ $field };
        }
        $self->sqlite->{ $config->{file} }->insert_or_update( $config->{tablename}, $message, $update_where, $config->{schema} );
    }
    else {
        $self->sqlite->{ $config->{file} }->insert( $config->{tablename}, $message, $config->{schema} );
    }
    return $message;
}
1;
__END__
HideShow 23 lines of Pod
=head1 NAME
App::Wubot::Reactor::SQLite - insert or update a message in a SQLite table row
=head1 VERSION
version 0.3.0
=head1 DESCRIPTION
TODO: More to come...
=head1 SUBROUTINES/METHODS
=over 8
=item react( $message, $config )
The standard reactor plugin react() method.
=back