ORM proof of concept

DBIx-Object.pm

package DBIx::Object;
use base 'DBI';

package DBIx::Object::st;
use base 'DBI::st';

package DBIx::Object::db;
use base 'DBI::db';
use Moose;

around 'selectall_arrayref' => sub {
    my $orig = shift;
    my $self = shift;
    return $self->$orig(@_) unless ref($_[1]) eq 'HASH' and exists $_[1]->{Class};

    my $class = delete $_[1]->{Class};
    $_[1]->{Slice} = {};
    my $arrayref = $self->$orig(@_);
    bless $_, $class for @$arrayref;
    return $arrayref;
};

around 'selectall_hashref' => sub {
    my $orig = shift;
    my $self = shift;
    return $self->$orig(@_) unless ref($_[2]) eq 'HASH' and exists $_[2]->{Class};

    my $class = delete $_[2]->{Class};
    my $hashref = $self->$orig(@_);
    bless $_, $class for values %$hashref;
    return $hashref;
};

around 'selectrow_hashref' => sub {
    my $orig = shift;
    my $self = shift;
    return $self->$orig(@_) unless ref($_[1]) eq 'HASH' and exists $_[1]->{Class};

    my $class = delete $_[1]->{Class};
    my $hashref = $self->$orig(@_);
    return bless $hashref, $class;
};