Karakash: Verständnisproblem: Instanziierung

Beitrag lesen

  
#!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?