package Service;
use base qw/ Test::Class /;

use Test::More;

sub common_method : Test(1)
{
    my $self = shift;

    ok (1 == 1, 'common_method');
}

1;

##</code><code>##

package Service_A;
use base qw/ Service /;

use Test::More;

sub method_of_a : Test(1)
{
    my $self = shift;

    ok (1 == 1, 'method_of_a');
}

1;

##</code><code>##

package Service_B;
use base qw/ Service /;

use Test::More;

sub method_of_b : Test(1)
{
    my $self = shift;

    ok (1 == 1, 'method_of_b');
}

1;

##</code><code>##

#!/usr/bin/perl
use strict; use warnings;

use Service_A;
use Service_B;

Test::Class->runtests();