#  $Id: Service.pm,v 1.23 2000-2001/12/27 21:43:37 aigan Exp $  -*-perl-*-

=head1 NAME

RDF::Service - RDF API with DBI and other backends

=head1 SYNOPSIS

  use RDF::Service;


  my $ns   = "http://our.org/namespace/";       # Private namespace
  my $rdf  = "http://www.w3.org/1999/02/22-rdf-syntax-ns#";
  my $rdfs = "http://uxn.nu/rdf/2000-2001/09/19/local-schema#";

  my $s = new RDF::Service( $ns."S1" );  # Start session S1

  # Create a new resource of type Property
  #
  my $my_prop = $s->get($ns."name")->set(
      [ $rdf."Property" ],
      {
          $rdfs."domain" => [ $ns."Person" ],
          $rdfs."range"  => [ $rdfs."Literal" ],
      } );

  # Get the domain of ns:name, as a scalar
  #
  my $domain = $s->get($ns."name")->
                   arc_obj($rdfs."domain")->
                   li->uri;

=head1 PUBLIC METHODS

=head2 new($uristr)

This will create a L<context object|..::..::context> holding a
L<session resource|..::..::session>.

If C<$uristr> is not supplied, a URI for the resoruce will be
generated.

  MODEL  = ls:base_model
  WMODEL = $self


=head1 SEE ALSO

L<RDF::Service::Resource>

=head1 AUTHOR

Jonas Liljegren   E<lt>jonas@paranormal.seE<gt>

  http://jonas.liljegren.org/myself/en/


=head1 COPYRIGHT

Copyright (C) 2000-2001 Jonas Liljegren.  All Rights Reserved.

This module is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.


=head1 ACKNOWLEDGEMENTS

The RDF community, TBL and Stefan Andersson.