1#!/usr/bin/perl 2use strict; 3use warnings; 4use Test::More tests => 3; 5BEGIN { use_ok('dynamic_cast') } 6require_ok('dynamic_cast'); 7 8my $f = dynamic_cast::Foo->new(); 9my $b = dynamic_cast::Bar->new(); 10my $x = $f->blah(); 11my $y = $b->blah(); 12my $a = dynamic_cast::do_test($y); 13is($a, "Bar::test"); 14