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;