|
added common test executing ...
|
1 |
package MyModel4::company; |
| 2 | ||
| 3 |
use base 'MyModel4'; |
|
| 4 | ||
| 5 |
sub insert { shift->SUPER::insert(param => $_[0]) }
|
|
| 6 |
sub list { shift->select }
|
|
| 7 | ||
| 8 |
1; |