75 print "Plugin $plugin is loaded indeed.\n" 76 if ( Class::MOP::is_class_loaded($plugin) ); 77 78 #===================================== 79 # Let's print out the symbol table to check 80 # whether the plugins loads up. 81 #===================================== 82 83 print '-'x80, "\n"; 84 print 'Printing out the symbol table....', "\n"; 85 print '-'x80, "\n"; 86 foreach my $key ( sort {$a cmp $b} keys %Admin_server::Parser:: ) { 87 print $key, "\n"; 88 }