test cleranup
|
1 |
package MyModel4::book; |
2 | ||
3 |
use base 'MyModel4'; |
|
4 | ||
5 |
sub table { 'table1' } |
|
6 | ||
7 |
sub list { shift->select } |
|
8 | ||
9 |
1; |