view release on metacpan or  search on metacpan

lib/MySQL/ORM.pm  view on Meta::CPAN

package MySQL::ORM;

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

our $VERSION = '0.18';

=head1 SYNOPSIS

Quick summary of what the module does.

Perhaps a little code snippet.

    use MySQL::ORM;

    my $foo = MySQL::ORM->new();
    ...

=cut

##############################################################################
## public attributes
##############################################################################

has dbh => (
	is       => 'rw',
	isa      => 'Object',
	required => 1,
	trigger  => sub {
		my $self = shift;
		$self->dbh->{FetchHashKeyName} = 'NAME_lc';
	}
);

has schema_name => (
    is => 'ro',
    isa => 'Str',
    lazy => 1,
    builder => '_build_schema_name'
);


##############################################################################
## protected attributes
##############################################################################

has __lite => (
	is      => 'rw',
	isa     => 'MySQL::Util::Lite',
	lazy    => 1,
	builder => '_build__lite'
);

##############################################################################
## private attributes
##############################################################################
has _lite_ready => (
    is      => 'rw',