Newer Older
13 lines | 0.189kb
added common test executing ...
Yuki Kimoto authored on 2011-08-07
1
package MyModel1::book;
2

            
3
use DBIx::Custom::Model -base;
4

            
5
sub insert {
6
    my ($self, $param) = @_;
7
    
8
    return $self->SUPER::insert(param => $param);
9
}
10

            
11
sub list { shift->select; }
12

            
13
1;