Examples/test-suite/perl5/director_frob_runme.pl

use strict;
use warnings;
use Test::More tests => 4;
BEGIN { use_ok 'director_frob' }
require_ok 'director_frob';

my $foo = director_frob::Bravo->new();
isa_ok $foo, 'director_frob::Bravo';

is($foo->abs_method(), 'Bravo::abs_method()');