sub data {
	my $self = shift;
	$self->{data} = "$_[0]" if ( @_ );
	$self->{data};
}

sub file_failed {
	my $self = shift;
	$self->{file_failed} = $_[0] ? 1 : 0 if ( @_ );
	$self->{file_failed} || 0;
}