Newer Older
9 lines | 0.104kb
test cleanup
Yuki Kimoto authored on 2011-08-15
1
package MyModel4::TABLE1;
cleanup test
Yuki Kimoto authored on 2011-08-15
2

            
3
use base 'MyModel4';
4

            
test cleanup
Yuki Kimoto authored on 2011-08-15
5
sub table { 'TABLE1' }
cleanup test
Yuki Kimoto authored on 2011-08-15
6

            
7
sub list { shift->select }
8

            
9
1;