#!/usr/bin/perl -w use strict; use warnings; use Spiderman qw(shootWeb); print STDERR shootWeb() . "\n"; package Spiderman; use base qw(Exporter); our @EXPORT = qw(shootWeb webStrength); use DrOctopus (); sub shootWeb { return DrOctopus::deflectWeb(); # from DrOctopus } sub webStrength { return 1; } package DrOctopus; use base qw(Exporter); our @EXPORT = qw(deflectWeb); use Spiderman (); sub deflectWeb { return Spiderman::webStrength(); # from Spiderman } 1;
...reality must take precedence over public relations, for nature cannot be fooled. - R P Feynmann
In reply to Re: Undefined subroutine errors
by leriksen
in thread Undefined subroutine errors
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |