view release on metacpan or  search on metacpan

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

  $restws =~ s/\/+$//;
  my $url = $restws.'/'.$self->{base_uri};
  my $ua = LWP::UserAgent->new(timeout => 300);

  my $response = $ua->request(PUT $url, Content => $rdfxml);
  unless ($response->is_success) {
    print STDERR "PUT failed: ", $response->status_line, "\n";
  }
}

sub update {
  my ($self, $sparql) = @_;

  my $params = { 'update' => $sparql };
  my $ua = new LWP::UserAgent(timeout => 300);
  $ua->agent('perlproc/1.0');

  my $response = $ua->post($self->{update}, $params );
  return $response->is_success;
}

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

  my $parser = RDF::Trine::Parser->new('rdfxml');
  my $serializer = RDF::Trine::Serializer::RDFXML->new( base_uri => $self->{base_uri} );

  $parser->parse_into_model($self->{base_uri}, $rdfxml, $model);

  open(my $fh, '>', $self->{filename});
  $serializer->serialize_model_to_file($fh, $model);
  close($fh);
}

sub update {
  my ($self, $sparql) = @_;

  my $query = RDF::Query->new($sparql, {update => 1});

  my $parser = RDF::Trine::Parser->new('rdfxml');
  my $serializer = RDF::Trine::Serializer::RDFXML->new( base_uri => $self->{base_uri} );
  my $file = path($self->{filename});
  my $data = $file->slurp_utf8;
  my $store = RDF::Trine::Store::Memory->new;
  my $model = RDF::Trine::Model->new($store);