#!/usr/bin/perl -w | |
use strict; | |
use Test::More tests => 4; | |
BEGIN { use_ok('packageoption_a'); } | |
BEGIN { use_ok('packageoption_b'); } | |
my $a = CommonPackage::A->new(); | |
isa_ok($a, 'CommonPackage::A'); | |
my $b = CommonPackage::B->new(); | |
isa_ok($b, 'CommonPackage::B'); | |