Try something like

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;
}
[download]

Note that you'll have to handle that default in the constructor (new() sub) yourself, although the  || 0 should cover most cases.

- doug