Muster - die einsame [KB]ruecke

[Hamstar]

1;

EOF Naive_Log.pm

#! /usr/bin/perl -w -I ./modules

Naive_LogClient.pl

use strict;
use Naive_Log;

Wenn das hier noch nicht passiert ist...

my $naive_log = new Naive_Log;

...schlaegt das hier fehl

print Naive_Log::do_it() . "\n";

EOF Naive_LogClient.pl

Nun, Du hast hier einen Objektverweis, aber keine Objektinstanz. - Nun bin ich ja nicht gerade der OO-Bulle und meine auch nur gelesen zu haben, dass Perl auch nicht gerade OO mit beiden Löffeln gefressen hat, aber das scheint mir doch alles ganz OK...