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;