Newer Older
17 lines | 0.221kb
cleanup test
Yuki Kimoto authored on 2011-08-06
1
package MyModel1::Company;
2

            
3
use strict;
4
use warnings;
5

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

            
8

            
9
sub insert {
10
    my ($self, $param) = @_;
11
    
12
    return $self->SUPER::insert(param => $param);
13
}
14

            
15
sub list { shift->select; }
16

            
17
1;