use lib 'lib';
use DeltaR;

my $dr = DeltaR->new;

sub dbh 
{ 
   my $self = shift;
   my $dbh = $dr->connect(
      db_name => "postgres",
      db_user => "postgres",
      db_pass => "",
      db_host => "127.0.0.1"
   );
   return $dbh;
};

get '/inventory' => sub
{
   my $self = shift;
   my $dbh = dbh;
	my $rows = $dr->query_inventory( $dbh );

   $self->stash(
      title => "Inventory report",
      record_limit => $record_limit,
      rows => $rows,
      columns => [ 'Count', 'Class' ]
   );

} => "rtable";

app->start;