#!/usr/bin/env perl

use strict;
use warnings;

# core modules
use Data::Dumper;
use File::Basename 'dirname';
use File::Spec;
use List::Util qw(sum);

# cpan modules
use Mojolicious::Lite;
use autodie qw/:all/;
use DBI;    #DBI->trace(1);
use SQL::Interp qw/:all/;
use Sys::Hostname;

# local modules
use lib join '/', File::Spec->splitdir( dirname(__FILE__) ), '..', 'lib';
use Local::DB;
use Local::Bitcoin;

my $bitcoin = Local::Bitcoin->new;

my $da = Local::DB->new->da;

DBI->trace(1);

my @m = $da->sqlarrayhash('SELECT * FROM v_missing_pledges');