#!perl -w
use strict;
use warnings;
package initialize;
sub new() {
my $IsFulfilled = 0;
my $self=shift;
my $newInst={};
bless($newInst,$self);
}
package Method;
use base 'initialize';
sub new(){
my $name;
}
sub checkFulfilled()
{
$initialize::IsFulfilled =1 ;
}
package main;
$method::IsFulfilled = 0;
print $method::IsFulfilled;
$method=Method->checkFulfilled();
print $method::IsFulfilled;
Ausgabe: 00
Erwartete Ausgabe: 01
Wieso funktioniert augenscheinlich die Instanziierung nicht?