Bio/DB/GFF/Adaptor/memory/feature_serializer.pm

   1 package Bio::DB::GFF::Adaptor::memory::feature_serializer;
   2
   3
   4 =head1 NAME
   5
   6 Bio::DB::GFF::Adaptor::memory::feature_serializer - utility methods for serializing and deserializing GFF features
   7
   8 =cut
   9
  10 use strict;
  11
  12 require Exporter;
  13 use vars qw(@EXPORT @EXPORT_OK @hash2array_map);
  14 use base qw(Exporter);
  15 @EXPORT_OK = qw(feature2string string2feature @hash2array_map);
  16 @EXPORT = @EXPORT_OK;
  17
  18 @hash2array_map = qw(ref start stop source method score strand phase gclass gname tstart tstop feature_id group_id bin);
  19
  20 sub feature2string {
  21   my $feature = shift;
  22   local $^W = 0;
  23   my @a = @{$feature}{@hash2array_map};
  24   push @a,map {join "\0",@$_} @{$feature->{attributes}} if $feature->{attributes};
  25   return join $;,@a;
  26 }
  27
  28 sub string2feature {
  29   my $string  = shift;
  30   my (@attributes,%feature);
  31   (@feature{@hash2array_map},@attributes) = split $;,$string;
  32   $feature{attributes} = [map {[split "\0",$_]} @attributes];
  33   undef $feature{group_id};
  34   \%feature;
  35 }
  36
  37 1;