App-OverWatch

 view release on metacpan or  search on metacpan

META.yml  view on Meta::CPAN

  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: '1.4'
name: App-OverWatch
requires:
  Config::Tiny: '0'
  DBIx::Connector: '0'
  Getopt::Long: '0'
  Module::Load: '0'
  Moo: '0'
  Pod::Usage: '0'
  Try::Tiny: '0'
  base: '0'
  namespace::clean: '0'
  strict: '0'
  utf8: '0'
  warnings: '0'
version: '0.003'

Makefile.PL  view on Meta::CPAN

  ],
  "LICENSE" => "perl",
  "NAME" => "App::OverWatch",
  "PREREQ_PM" => {
    "Config::Tiny" => 0,
    "DBIx::Connector" => 0,
    "Getopt::Long" => 0,
    "Module::Load" => 0,
    "Moo" => 0,
    "Pod::Usage" => 0,
    "Try::Tiny" => 0,
    "base" => 0,
    "namespace::clean" => 0,
    "strict" => 0,
    "utf8" => 0,
    "warnings" => 0
  },
  "TEST_REQUIRES" => {
    "DBD::Pg" => 0,
    "DBD::SQLite" => 0,
    "DBD::mysql" => 0,

Makefile.PL  view on Meta::CPAN

  "DBD::SQLite" => 0,
  "DBD::mysql" => 0,
  "DBIx::Connector" => 0,
  "ExtUtils::MakeMaker" => 0,
  "Getopt::Long" => 0,
  "Module::Load" => 0,
  "Moo" => 0,
  "Pod::Usage" => 0,
  "Test::Exception" => 0,
  "Test::More" => 0,
  "Try::Tiny" => 0,
  "base" => 0,
  "lib" => 0,
  "namespace::clean" => 0,
  "strict" => 0,
  "utf8" => 0,
  "warnings" => 0
);


unless ( eval { ExtUtils::MakeMaker->VERSION(6.63_03) } ) {

lib/App/OverWatch/DB.pm  view on Meta::CPAN

package App::OverWatch::DB;
# ABSTRACT: Database connector base class

use strict;
use warnings;
use utf8;

use App::OverWatch::Config;

use DBIx::Connector;
use Try::Tiny;
use Module::Load qw( load );

sub new {
    my $class = shift;
    my $Config = shift || die "Error: require 'Config' arg";

    my $type = $Config->db_type();

    my $subclass = "$class::$type";
    load($subclass);