- or download this
__START_OF_COMMON_LIB_FILE__
package Class1;
...
1;
__END_OF_COMMON_LIB_FILE__
- or download this
use lib 'C:\tmp';
use CommonLib;
...
$class1_obj->method_1;
$class2_obj->method_2;
- or download this
D:\tmp>tmp.pl
I'm method 1!
I'm method 2!
D:\tmp>
- or download this
use CommonLib;
my $class1_obj = Class1->new;
...
$class1_obj->method_2;
$class2_obj->method_1;
- or download this
D:\tmp>tmp.pl
Can't locate object method "method_2" via package "Class1" at D:\tmp\t
+mp.pl line 10.
D:\tmp>
- or download this
package Class1;
package Class2;
sub foo {
}