sub new { bless {}; shift }

sub connect 
{
   my $self = shift;
   my %param = @_;
   my $table = "cf_status_log";

   my $dbh = DBI->connect(
         "DBI:Pg:dbname=$param{'db_name'}; host=$param{'db_host'}",
         "$param{'db_user'}", "$param{'db_pass'}",
         { RaiseError => 1 }
   ) or die "Could not connect to database";
   return $dbh;
};

sub inventory_query 
{
   my $dbh = shift;
   my $result = $dbh->prepare( "SELECT * FROM dr_inventory_classes" )
      || die "Could not prepare" ;
}
1;