use strict;
use warnings;

use Test::More tests => 7;                      
my $val = '&Mysimple_mod';

BEGIN { use_ok('Mysimple_mod', qw (external) ) };
ok ( defined( &external ) , 		  "#2 external is defined");
ok ( defined( &Mysimple_mod::internal ) , "#3 internal is defined");
ok ( defined( &Mysimple_mod::bogus ) , 	   "#4 bogus subroutine");
ok ( defined( "${val}".'::bogus' ) , 	   "#5 bogus subroutine");
ok ( defined( ${val}.'::bogus' ) , 	   "#6 bogus subroutine");

my $catval = "${val}" .'::bogus'; 
print "\n$catval\n";
ok ( defined( $catval ) , 					"#7 bogus subroutine");