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