package Library::Data::Base;

use strict;
use warnings;
use Class::DBI::AbstractSearch;

use base qw(Class::DBI::Pg);
__PACKAGE__->set_db(Main =>
      'dbi:Pg:dbname=library;host=10.0.0.1, ‘user’, ‘pass’,{AutoCommit => 1});


package Library::Data::Res;

use strict;
use warnings;

use base qw( Library::Data::Base );

__PACKAGE__->set_up_table('res');



package WebApp;

use strict;
use warnings;

use Library::Data::Res;

my @results   = Library::Data::Res->search_where(
                                information_type        =>      \@info_type,
                                format                  =>      \@formats,
                                starting_point          =>      \@topics
        );