Changeset 2511

Timestamp:

12/05/07 23:32:58 (5 years ago)

Author:

woremacx

Message:

lang/perl/WebService-YahooJP-TextParse?: wantarray of iterator

Files:

• lang/perl/WebService-YahooJP-TextParse/trunk/lib/WebService/YahooJP/TextParse.pm (modified) (2 diffs)

lang/perl/WebService-YahooJP-TextParse/trunk/lib/WebService/YahooJP/TextParse.pm

@@ -46 +46 @@
 
     $XML::Simple::PREFERRED_PARSER = 'XML::Parser';
-    my $parser = XML::Simple->new; #(forcearray => 1);
+    my $parser = XML::Simple->new;
     $self->{result} = $parser->XMLin($res->content);
-    $self->{iter} = Array::Iterator::BiDirectional->new($self->{result}->{ma_result}->{word_list}->{word});
-
-    $self->{iter};
+    $self->{word} = $self->{result}->{ma_result}->{word_list}->{word};
+    $self->{word} = [ $self->{word} ] if ref($self->{word}) and ref($self->{word}) eq 'HASH';
+    return wantarray ? @{ $self->{word} } : Array::Iterator::BiDirectional->new($self->{word});
 }
 
@@ -64 +64 @@
   use WebService::YahooJP::TextParse;
   
-  my $ma = WebService::YahooJP::TextParse->new(%$config); # $config = { appid: "your-app-id" };
+  my $config = { appid => "your-app-id" };
+  my $ma = WebService::YahooJP::TextParse->new(%$config);
   my $text = "some japanese sentense";
   my $iter = $ma->analysis($text);