[Perl] Aus Modul heraus externe Soubroutine aufrufen scheitert

[Igge]

Wenn ich aus einem Perl-Modul heraus eine externe Subroutine aufrufen will, kann diese nicht gefunden werden. Er erscheint folgende Fehlermeldung:


Undefined subroutine &modul::bar called at modul.pm line 11.

Hier der Code:

index.cgi:


#!/usr/bin/perl
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";

sub bar {
print "Hallo Welt";
}

use modul;
my $html = modul->new();

$html->foo();

modul.pm:


package modul;

sub new {
my $self = shift;
my $Referenz = {};
bless($Referenz, $self);
return $Referenz;
}

sub foo {
&bar;
}

1;

Kann mir jemand sagen, was ich ändern muss? Vielen Dank im Voraus.

Igge

[Igge]

Ok, habe den Fehler gefunden. Es muss in Zeile 11 der modul.pm nicht "&bar;" sondern "&main::bar;" heißen.

Igge