my @records;

        my $parser = XML::LibXML->new;
        my $doc = $parser->parse_string( $result->{records} );
print STDERR $doc->toString( 1 );
        foreach my $node ($doc->documentElement->childNodes)
        {
                next unless $node->isa( "XML::LibXML::Element" );
                my $record = {
                        timescited => $node->getAttribute( "timescited" ),
                };
                my( $item ) = $node->getElementsByTagName( "item" );
                $record->{"year"} = $item->getAttribute( "coverdate" );
                $record->{"year"} =~ s/^(\d{4}).+/$1/; # yyyymm
                my( $ut ) = $item->getElementsByTagName( "ut" );
                $record->{"primarykey"} = $ut->textContent;
                my( $item_title ) = $item->getElementsByTagName( "item_title" );
                $record->{"title"} = $item_title->textContent;
                push @records, $record;
        }

        return @records;

NAME

SOAP::ISIWoK - search and query the ISI Web of Knowledge

SYNOPSIS

  use SOAP::ISIWoK;

  my $wok = SOAP::ISIWoK->new();

  my $results = $wok->search( "AU = (Brody)" );
  my $results = $wok->search( "AU = (Brody)", offset => 10, max => 20 );

  print $results->[0]->{title};

DESCRIPTION

This module is a thin wrapper for the ISI Web of Knowledge SOAP interface.

EXPORT

None by default.

HISTORY

0.01

Original version; created by h2xs 1.23 with options

  -n
        SOAP::ISIWoK
        -e
        -A
        -C
        -X
        -c
        -b
        5.8.0

SEE ALSO

SOAP::Lite, http://www.isiknowledge.com/

AUTHOR

Timothy D Brody, <tdb2@ecs.soton.ac.uk<gt>

COPYRIGHT AND LICENSE

Copyright (C) 2010 by Tim D Brody

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.8 or, at your option, any later version of Perl 5 you may have available.