package initialize;
use base qw(Class:Accessor);
initialize->mk_acessors(qw(IsFulfilled));
sub new() {
my $self=shift;
my $newInst={};
bless($newInst,$self);

}

package Method;
use base 'initialize';
use base qw(Class:Acessor);
Method->mk_acessors(qw(name));
	sub checkFulfilled() 
	{
		IsFulfilled=1;
	}