File: path2.x

package info (click to toggle)
libdata-stag-perl 0.14-4
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 1,480 kB
  • sloc: perl: 6,394; lisp: 141; xml: 116; ansic: 55; makefile: 17; sh: 2
file content (21 lines) | stat: -rw-r--r-- 417 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
use lib 't';

BEGIN {
    # to handle systems with no installed Test module
    # we include the t dir (where a copy of Test.pm is located)
    # as a fallback
    eval { require Test; };
    use Test;    
    plan tests => 11;
}
use Data::Stag;
use FileHandle;

my $fn = "t/data/gene.xml";
my $stag = Data::Stag->new;
$stag->parse($fn);

my @n = $stag->findnode('transcript/gene_acc');
map {
    print $_->xml
} @n;