sub has_file {
    my $self = shift;
    my $filename = $self->filename;
    (defined($filename) && length($filename)) ? 1 : 0;
  }