MooseX::App::Cmd + MooseX::SimpleConfig

App::Booklist::CLI::BASE.pm

package App::Booklist::CLI::BASE;
use Moose;
use namespace::autoclean;
use 5.010;
extends 'MooseX::App::Cmd::Command';
with 'MooseX::SimpleConfig';

has file => (
  isa => 'Str' ,
  is  => 'rw' ,
  documentation => 'Location of DB file.' ,
  traits => [qw(Getopt)],
  default => "$FindBin::Bin/../db/booklist.db",
);

sub get_schema_and_deploy_db_if_needed {
  my( $self ) = shift;

  my $db = $self->file;

  return $self->deploy_db()
    unless -e $db;

  return $self->get_schema;
}

1;