package DBIx::Custom::Model;

use strict;

use warnings;

use base 'Object::Simple';

use Carp 'croak';

use DBIx::Custom::Table;

__PACKAGE__->attr(dbi => sub { DBIx::Custom->new });

sub table {

    my ($self, $table) = @_;

    $self->{tables}{$table}

        = DBIx::Custom::Table->new(name => $table, dbi => $self->dbi)

      unless defined $self->{tables}{$table};

    return $self->{tables}{$table};

}

1;

=head1 NAME

DBIx::Custom::Model - Table class(experimental)

=head1 SYNOPSIS

use MyModel;

use base 'DBIx::Custom::Model';

sub new {

    my $self = shift->SUPER::new(@_);

    $self->table('books')->helper(

        insert_multi => sub {

            my $self = shift;

            my $dbi = $self->dbi;

            # ...

        }

    );

    return $self;

}

=head1 METHODS

L<DBIx::Custom> inherits all methods from L<Object::Simple>

and implements the following new ones.

=head2 C<table>

    my $table = $model->table('books');

Create a table object if not exists or get it.