in reply to -c
In my humble opinion you can check the existance of a subroutine
or anything else verifying the symbol table of the given routine
in a way it is described in Programming Perl book (5.1.1. Symbol
tables).
i.e.:
#!/usr/bin/perl
&greet;
sub greet () {#some stuff here
};
foreach $symname (sort keys %main::) {
local *sym = $main::{$symname};
print "\&$symname is defined\n" if defined &sym;
}
----
This code will print out: "&greet is defined". You see, you can modufy that code to meet your taste. But the main
problem is that I didn't tested it with the incapsulated packages.
--
With best regards
Maqs.
or anything else verifying the symbol table of the given routine
in a way it is described in Programming Perl book (5.1.1. Symbol
tables).
i.e.:
#!/usr/bin/perl
&greet;
sub greet () {#some stuff here
};
foreach $symname (sort keys %main::) {
local *sym = $main::{$symname};
print "\&$symname is defined\n" if defined &sym;
}
----
This code will print out: "&greet is defined". You see, you can modufy that code to meet your taste. But the main
problem is that I didn't tested it with the incapsulated packages.
--
With best regards
Maqs.
In Section
Seekers of Perl Wisdom