MySQL-Util

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

      "runtime" : {
         "requires" : {
            "Config::General" : "0",
            "DBD::mysql" : "0",
            "DBI" : "0",
            "DBIx::DataFactory" : "0",
            "Data::Compare" : "1.22",
            "Data::Printer" : "0",
            "List::MoreUtils" : "0",
            "Method::Signatures" : "0",
            "Modern::Perl" : "0",
            "Module::Load" : "0",
            "Moose" : "1.24",
            "Moose::Role" : "0",
            "SQL::Beautify" : "0",
            "Smart::Args" : "0",
            "String::Util" : "0",
            "Symbol::Util" : "0",
            "Test::More" : "0",
            "autodie" : "0",
            "namespace::autoclean" : "0",

META.yml  view on Meta::CPAN

    - inc
requires:
  Config::General: '0'
  DBD::mysql: '0'
  DBI: '0'
  DBIx::DataFactory: '0'
  Data::Compare: '1.22'
  Data::Printer: '0'
  List::MoreUtils: '0'
  Method::Signatures: '0'
  Modern::Perl: '0'
  Module::Load: '0'
  Moose: '1.24'
  Moose::Role: '0'
  SQL::Beautify: '0'
  Smart::Args: '0'
  String::Util: '0'
  Symbol::Util: '0'
  Test::More: '0'
  autodie: '0'
  namespace::autoclean: '0'

MYMETA.json  view on Meta::CPAN

      "runtime" : {
         "requires" : {
            "Config::General" : "0",
            "DBD::mysql" : "0",
            "DBI" : "0",
            "DBIx::DataFactory" : "0",
            "Data::Compare" : "1.22",
            "Data::Printer" : "0",
            "List::MoreUtils" : "0",
            "Method::Signatures" : "0",
            "Modern::Perl" : "0",
            "Module::Load" : "0",
            "Moose" : "1.24",
            "Moose::Role" : "0",
            "SQL::Beautify" : "0",
            "Smart::Args" : "0",
            "String::Util" : "0",
            "Symbol::Util" : "0",
            "Test::More" : "0",
            "autodie" : "0",
            "namespace::autoclean" : "0",

MYMETA.yml  view on Meta::CPAN

    - inc
requires:
  Config::General: '0'
  DBD::mysql: '0'
  DBI: '0'
  DBIx::DataFactory: '0'
  Data::Compare: '1.22'
  Data::Printer: '0'
  List::MoreUtils: '0'
  Method::Signatures: '0'
  Modern::Perl: '0'
  Module::Load: '0'
  Moose: '1.24'
  Moose::Role: '0'
  SQL::Beautify: '0'
  Smart::Args: '0'
  String::Util: '0'
  Symbol::Util: '0'
  Test::More: '0'
  autodie: '0'
  namespace::autoclean: '0'

Makefile.PL  view on Meta::CPAN

		'DBD::mysql'           => 0,
		'Test::More'           => 0,
		'Method::Signatures'   => 0,
		'Data::Printer'        => 0,
		'Moose'                => 1.24,
		'Moose::Role'          => 0,
		'namespace::autoclean' => 0,
		'Data::Compare'        => 1.22,
		'String::Util'         => 0,
		'autodie'              => 0,
		'Modern::Perl'         => 0,
		'DBIx::DataFactory'    => 0,
		'List::MoreUtils'      => 0,
		'SQL::Beautify'        => 0,
		'Smart::Args'          => 0,
		'Symbol::Util'         => 0,
		'Config::General'      => 0,
		'Module::Load'         => 0,
	},
	EXE_FILES => [
		"bin/myutil_create_data.pl",

bin/myutil_dump_columns.pl  view on Meta::CPAN

#!/usr/bin/perl

###### PACKAGES ######

use Getopt::Long;
Getopt::Long::Configure('no_ignore_case');
use MySQL::Util;
use Data::Printer alias => 'pdump';
use Modern::Perl;

###### CONSTANTS ######

###### GLOBAL VARIABLES ######

use vars qw($Util $Host $DbName $User $Pass $Table);

###### MAIN PROGRAM ######

parse_cmd_line();

eg/myutil_drop_test_db.pl  view on Meta::CPAN

#!/usr/bin/perl

use Modern::Perl;

use lib qw(. .. ../t);

require 'testlib.pl';

########################

my ($host, $dbname) = drop_db();
print "dropped $dbname on $host\n";

eg/myutil_load_test_db.pl  view on Meta::CPAN

#!/usr/bin/perl

use Modern::Perl;

use lib qw(. .. ../t);

require 'testlib.pl';

########################

my ($host, $dbname) = load_db();
print "loaded $dbname on $host\n";

lib/MySQL/Util/Lite.pm  view on Meta::CPAN

package MySQL::Util::Lite;

our $VERSION = '0.01';

use Modern::Perl;
use Moose;
use namespace::autoclean;
use Method::Signatures;
use Data::Printer alias => 'pdump';
use MySQL::Util::Lite::Schema;

extends 'MySQL::Util';

###############################
###### PUBLIC ATTRIBUTES ######

lib/MySQL/Util/Lite/AlternateKey.pm  view on Meta::CPAN

package MySQL::Util::Lite::AlternateKey;

our $VERSION = '0.01';

use Modern::Perl;
use Moose;
use namespace::autoclean;
use Method::Signatures;
use Data::Printer alias => 'pdump';

with 'MySQL::Util::Lite::Roles::NewColumn';

has name => (
	is       => 'ro',
	isa      => 'Str',

lib/MySQL/Util/Lite/Column.pm  view on Meta::CPAN

package MySQL::Util::Lite::Column;

our $VERSION = '0.01';

use Modern::Perl;
use Moose;
use namespace::autoclean;
use Method::Signatures;
use Data::Printer alias => 'pdump';

has name => (
	is => 'ro',
	isa => 'Str',
	required => 1,
);

lib/MySQL/Util/Lite/ColumnConstraint.pm  view on Meta::CPAN

package MySQL::Util::Lite::ColumnConstraint;

our $VERSION = '0.01';

use Modern::Perl;
use Moose;
use namespace::autoclean;
use Method::Signatures;
use Data::Printer alias => 'pdump';

has column_name => (
	is       => 'ro',
	isa      => 'Str',
	required => 1,
);

lib/MySQL/Util/Lite/ForeignKey.pm  view on Meta::CPAN

package MySQL::Util::Lite::ForeignKey;

our $VERSION = '0.01';

use Modern::Perl;
use Moose;
use namespace::autoclean;
use Method::Signatures;
use Data::Printer alias => 'pdump';
use MySQL::Util::Lite::ColumnConstraint;

has name => (
	is       => 'ro',
	isa      => 'Str',
	required => 1,

lib/MySQL/Util/Lite/PrimaryKey.pm  view on Meta::CPAN

package MySQL::Util::Lite::PrimaryKey;

our $VERSION = '0.01';

use Modern::Perl;
use Moose;
use namespace::autoclean;
use Method::Signatures;
use Data::Printer alias => 'pdump';
use MySQL::Util::Lite::Column;

with 'MySQL::Util::Lite::Roles::NewColumn';

has name => (
	is       => 'ro',

lib/MySQL/Util/Lite/Roles/NewColumn.pm  view on Meta::CPAN

package MySQL::Util::Lite::Roles::NewColumn;

our $VERSION = '0.01';

use Modern::Perl;
use Moose::Role;
use Method::Signatures;
use Data::Printer alias => 'pdump';

method new_column (HashRef $column_descript) {

	my $col = $column_descript;
	
	return MySQL::Util::Lite::Column->new(
		name        => $col->{FIELD},

lib/MySQL/Util/Lite/Schema.pm  view on Meta::CPAN

package MySQL::Util::Lite::Schema;

our $VERSION = '0.01';

use Modern::Perl;
use Moose;
use namespace::autoclean;
use Method::Signatures;
use Data::Printer alias => 'pdump';
use MySQL::Util::Lite::Table;

has name => (
	is       => 'ro',
	isa      => 'Str',
	required => 1,

lib/MySQL/Util/Lite/Table.pm  view on Meta::CPAN

package MySQL::Util::Lite::Table;

our $VERSION = '0.01';

use Modern::Perl;
use Moose;
use namespace::autoclean;
use Method::Signatures;
use Data::Printer alias => 'pdump';
use MySQL::Util::Lite::ForeignKey;
use MySQL::Util::Lite::PrimaryKey;
use MySQL::Util::Lite::AlternateKey;

with 'MySQL::Util::Lite::Roles::NewColumn';

t/20-util.t  view on Meta::CPAN

#!perl

use Modern::Perl;
use String::Util ':all';
use Data::Dumper;
use Test::More;
use feature 'state';
use File::Which;
use MySQL::Util;

use lib '.', './t';
require 'testlib.pl';

t/30-util-lite.t  view on Meta::CPAN

#!perl

use Modern::Perl;
use String::Util ':all';
use Data::Dumper;
use Test::More;
use feature 'state';
use File::Which;
use MySQL::Util::Lite;
use Data::Printer alias => 'pdump';

use lib '.', './t';
require 'testlib.pl';

t/testlib.pl  view on Meta::CPAN

use Modern::Perl;
use Carp;
use String::Util ':all';

sub get_dbh {
	my %conf = parse_conf();

	return DBI->connect(
		$conf{DBI_DSN},
		$conf{DBI_USER},
		$conf{DBI_PASS},