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;