#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"


void inspect( char* name ) {
  if( get_cv( name, (I32)0 ) != NULL ) {
    printf( " &%s is defined\n", name );
    { 
      dSP ;
      PUSHMARK(SP) ;  
      call_pv( name, G_DISCARD | G_NOARGS );
    }
  }
}


MODULE = CCC		PACKAGE = CCC		


void
inspect( name )
  INPUT:
    char* name;




##</code><code>##


sub mysub {
  print "Hello from mysub !\n";
}

&CCC::inspect( "main::mysub" );

undef &mysub;

&CCC::inspect( "main::mysub" );



##</code><code>##


1..1
ok 1
 &main::mysub is defined
Hello from mysub !
 &main::mysub is defined
Undefined subroutine &main::mysub called at test.pl line 27.
make: *** [test_dynamic] Erreur 255