[Bio] / FigKernelPackages / FIG.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/FIG.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.528, Wed Oct 4 18:00:12 2006 UTC revision 1.529, Wed Oct 4 18:53:32 2006 UTC
# Line 3211  Line 3211 
3211      }      }
3212  }  }
3213    
3214    
3215    =head3 flatten_dumper
3216    
3217    C<< FIG::flatten_dumper( $perl_ref_or_object_1, ... ); >>
3218    
3219    C<< $fig->flatten_dumper( $perl_ref_or_object_1, ... ); >>
3220    
3221    Takes a list of perl references or objects, and "flattens" their Data::Dumper() output
3222    so that it can be printed on a single line.
3223    
3224    =cut
3225    
3226    sub flatten_dumper {
3227        my @x = @_;
3228        my $x;
3229    
3230        foreach $x (@x)
3231        {
3232            $x = Dumper($x);
3233    
3234            $x =~ s/\$VAR\d+\s+\=\s+//o;
3235            $x =~ s/\n//gso;
3236            $x =~ s/\s+/ /go;
3237            $x =~ s/\'//go;
3238    #       $x =~ s/^[^\(\[\{]+//o;
3239    #       $x =~ s/[^\)\]\}]+$//o;
3240        }
3241    
3242        return @x;
3243    }
3244    
3245    
3246  ##########  I commented the pods on the following routines out, since they should not  ##########  I commented the pods on the following routines out, since they should not
3247  ##########  be part of the SOAP/WSTL interface  ##########  be part of the SOAP/WSTL interface
3248  #=pod  #=pod

Legend:
Removed from v.1.528  
changed lines
  Added in v.1.529

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3