• Files
• Commits
• Log
• Graph
• Stats

package Local::DBIx::Lite;

# sub-classes DBIx::Lite to provide connection using Local::DB and DBIx::Simple
# methods hashes, arrays, map, etc

use lib '/home/raj/perl-lib';

use Local::DB;
use Modern::Perl;
use Data::Printer;

use parent 'DBIx::Lite';
use Local::DBIx::Lite::ResultSet;

sub connect {
    my ($class, $args) = @_; # _debug($class, $args);
	my @dsn = Local::DB->dsn($args);      # _debug(@dsn);
	my $o = $class->SUPER::connect(@dsn); # _debug($o);
	return $o;
}

sub table {
    my $self = shift; # p $self; # Local::DBIxLite class
    my $o = $self->SUPER::table(@_); # ddp $o->select_sql; # DBIx::Lite::ResultSet class
    bless $o, 'Local::DBIx::Lite::ResultSet'; # ddp $o;
    return $o;
}

=begin
sub dbh_do {
    my $self = shift;
    my $code = shift;
    p $self->{schema};
    $self->SUPER::dbh_do($code);
}
=cut

1;