view release on metacpan or  search on metacpan

lib/Conclave/OTK/Backend/4store.pm  view on Meta::CPAN

  $ua->agent('perlproc/1.0');
  $ua->default_header('Accept' => 'text/tab-separated-values' );

  my $response = $ua->post($self->{query}, $params );
  my @result;

  unless ($response->is_success) {
    print STDERR "Query failed: ", $response->status_line, "\n";
  }
  else {
    my $tsv = $response->decoded_content;
    # FIXME
    my @lines = split /\n/, $tsv;
    shift @lines;
    foreach my $triple (@lines) {
      $triple =~ s/[<>]//g;
      my @l = split /\t/, $triple;
      if (scalar(@l) == 1) {
        push @result, $l[0];
      }
      else {