lib/extra_data_subs.pm

   1 start _write
   2     {
   3       die "ERROR: extra_data -> _write: No filename set in object.\n"
   4           if( $filename eq '' );
   5
   6       if( not defined $self -> {'individuals'} ){
   7         unless( $filename eq $self -> full_name ){
   8           $self -> synchronize;
   9         }
  10       }
  11
  12       open(FILE,">$filename") ||
  13           die "Could not create $filename\n";
  14       my @data = @{$self -> format_data};
  15       for ( @data ) {
  16         print ( FILE );
  17       }
  18       close(FILE);
  19     }
  20 end _write