- or download this
package Service;
use base qw/ Test::Class /;
...
}
1;
- or download this
package Service_A;
use base qw/ Service /;
...
}
1;
- or download this
package Service_B;
use base qw/ Service /;
...
}
1;
- or download this
#!/usr/bin/perl
use strict; use warnings;
...
use Service_B;
Test::Class->runtests();