~ubuntu-branches/ubuntu/trusty/bioperl/trusty

« back to all changes in this revision

Viewing changes to Bio/Variation/IO/xml.pm

  • Committer: Package Import Robot
  • Author(s): Charles Plessy
  • Date: 2013-09-22 13:39:48 UTC
  • mfrom: (3.1.11 sid)
  • Revision ID: package-import@ubuntu.com-20130922133948-c6z62zegjyp7ztou
Tags: 1.6.922-1
* New upstream release.
* Replaces and Breaks grinder (<< 0.5.3-3~) because of overlaping contents.
  Closes: #722910
* Stop Replacing and Breaking bioperl ( << 1.6.9 ): not needed anymore. 

Show diffs side-by-side

added added

removed removed

Lines of Context:
227
227
 
228
228
    # create new parser object
229
229
    my $twig_handlers = {'seqDiff' =>  \&_seqDiff };
230
 
    my $t = new XML::Twig ( TwigHandlers => $twig_handlers,
 
230
    my $t = XML::Twig->new ( TwigHandlers => $twig_handlers,
231
231
                            KeepEncoding => 1 );
232
232
    $t->parse($entry);
233
233
 
252
252
    }
253
253
    my $str;
254
254
    my $output = IO::String->new($str);
255
 
    my $w = new XML::Writer(OUTPUT => $output, DATA_MODE => 1, DATA_INDENT => 4 );
 
255
    my $w = XML::Writer->new(OUTPUT => $output, DATA_MODE => 1, DATA_INDENT => 4 );
256
256
 
257
257
    foreach my $h (@h) {
258
258
        #