sub open {
    my ($self, $file, %args) = @_;

    if (defined $file) {
   $self->{file} = $file;
    } else {
   $file = $self->{file};
    }

    # No need to do anything if this is a new file.
    return 1 unless(-e $file)