This depends on how exactly you want to call the Process sub: as a class method, an object method or a regular subroutine:
#!/usr/bin/perl -w
use strict;
package One;
sub ding {
print "Ding (".join(',',@_).") called!\n";
}
package main;
my $classname = "One";
my $obj = bless {},$classname;
my $packagename = $classname;
$classname->ding('class method');
$obj->ding('object method');
no strict 'refs';
&{$packagename."::ding"}('regular sub');
Will print:
Ding (One,class method) called!
Ding (One=HASH(0x80fbc2c),object method) called!
Ding (regular sub) called!
--
Joost downtime n. The period during which a system
is error-free and immune from user input.
|