0 Пользователей и 1 Гость просматривают эту тему.
==============1.pl============#!/usr/bin/perluse My::m1 qw(f);print &f;==============1.pl===========================My/m1.pm=========package My::m1;use Exporter;@ISA = (\'Exporter\');@EXPORT_OK = qw(&f);use My::m2 qw(f2);sub f{return &f2;}=======================================My/m2.pm==========package My::m2;use Exporter;@ISA = (\'Exporter\');@EXPORT_OK = qw(&f2);sub f2{return "F2!";}========================