Connect to dancer's dev DB

sqlconnect.pl

#!/usr/bin/env perl

use v5.14;
use warnings;
use YAML::XS qw(Load);

my @files = qw(config.yml environments/development.yml);
unshift @files, @ARGV if @ARGV;

for (@files) {
    next unless -r;
    eval {
        my $contents = do {open my $h, '<', $_; local $/; <$h>};
        my %db = %{Load($contents)->{plugins}{Database}} or die;
        %db = %{$db{connections}{(keys $db{connections})[0]}} if defined $db{connections};
        exec 'mysql', '-u', $db{username}, "-p$db{password}", '-h', $db{host}, $db{database};
    };
}