1 contributor
package DBIx::Custom::Table;
use strict;
use warnings;
use base 'Object::Simple';
use Carp 'croak';
# Carp trust relationship
push @DBIx::Custom::CARP_NOT, __PACKAGE__;
__PACKAGE__->attr(['dbi', 'name', 'model']);
our $AUTOLOAD;
sub AUTOLOAD {
my $self = shift;
# Method
my ($package, $method) = $AUTOLOAD =~ /^([\w\:]+)\:\:(\w+)$/;
# Helper
$self->{_helpers} ||= {};
croak qq/Can't locate object method "$method" via "$package"/
unless my $helper = $self->{_helpers}->{$method};
# Run
return $self->$helper(@_);
}
sub helper {
my $self = shift;
# Merge
my $helpers = ref $_[0] eq 'HASH' ? $_[0] : {@_};
$self->{_helpers} = {%{$self->{_helpers} || {}}, %$helpers};
return $self;
}
sub new {
my $self = shift->SUPER::new(@_);
my @methods = qw/insert update update_all delete delete_all select/;
foreach my $method (@methods) {
$self->helper(
$method => sub {
my $self = shift;
return $self->dbi->$method(table => $self->name, @_);
}
);
}
return $self;
}
sub DESTROY { }
1;
=head1 NAME
DBIx::Custom::Table - Table base class(experimental)
=head1 SYNOPSIS
use DBIx::Custom::Table;
my $table = DBIx::Custom::Table->new(name => 'books');
=head1 METHODS
L<DBIx::Custom> inherits all methods from L<Object::Simple>
and implements the following new ones.
=head2 C<delete>
$table->delete(where => \%where);
Same as C<delete()> of L<DBIx::Custom> except that
you don't have to specify table name.
=head2 C<delete_all>
$table->delete_all(param => $param);
Same as C<delete_all()> of L<DBIx::Custom> except that
you don't have to specify table name.
=head2 C<helper>
$table->helper(insert => sub {
my $self = shift;
return $self->dbi->insert(table => $self->name, @_);
});
Add helper method to a L<DBIx::Custom::Table> object.
=head2 C<insert>
$table->insert(param => \%param);
Same as C<insert()> of L<DBIx::Custom> except that
you don't have to specify table name.
=head2 C<method>
$table->method(
select_complex => sub {
my $self = shift;
return $self->dbi->select($self->name, ...);
},
some_method => sub { ... }
);
Define method.
=head2 C<new>
my $table = DBIx::Custom::Table->new;
Create a L<DBIx::Custom::Table> object.
=head2 C<select>
$table->select(param => $param);
Same as C<select()> of L<DBIx::Custom> except that
you don't have to specify table name.
=head2 C<update>
$table->update(param => \%param, where => \%where);
Same as C<update()> of L<DBIx::Custom> except that
you don't have to specify table name.
=head2 C<update_all>
$table->update_all(param => \%param);
Same as C<update_all()> of L<DBIx::Custom> except that
you don't have to specify table name.