package Modules::File::Created;

sub new {
	$class = shift;
	my ($template) = @_;
	$this = { 'is_created' => 0, 'is_confirmed' => 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'} && ! $$this{'is_confirmed'});
}

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

1;