<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">package Modules::File::Created;

########## Confixx(R) 3.1 Professional ############
####### Copyright SWsoft, Inc. 2004-2005 ##########
#### http://www.swsoft.com - info@swsoft.com ####

sub new {
	$class = shift;
	my ($template) = @_;
	$this = { 'is_created' =&gt; 0, 'is_confirmed' =&gt; 0 };
	return bless($this, $class);
}

sub set_created  {
	my $this = shift;
	my ($flag) = @_;
	return ($$this{'is_created'} = $flag);
}

sub confirm {
	my $this = shift;
	$$this{'is_confirmed'} = 1;
}

sub is_broken {
	my $this = shift;
	return ($$this{'is_created'} &amp;&amp; ! $$this{'is_confirmed'});
}

sub is_created {
	my $this = shift;
	return ($$this{'is_created'});
}

1;


</pre></body></html>