File Coverage

blib/lib/ODO/Ontology/RDFS/Vocabulary.pm

Criterion	Covered	Total	%
statement	39	54	72.2
branch			n/a
condition			n/a
subroutine	10	11	90.9
pod	1	1	100.0
total	50	66	75.7

#
# Copyright (c) 2005-2006 IBM Corporation.
#
# All rights reserved. This program and the accompanying materials
# are made available under the terms of the Eclipse Public License v1.0
# which accompanies this distribution, and is available at
# http://www.eclipse.org/legal/epl-v10.html
#
# File:        $Source: /var/lib/cvs/ODO/lib/ODO/Ontology/RDFS/Vocabulary.pm,v $
# Created by:  Stephen Evanchik( [e-mail] )
# Created on:  03/02/2005
# Revision:	$Id: Vocabulary.pm,v 1.7 2009-11-25 17:58:26 ubuntu Exp $
#
# Contributors:
#     IBM Corporation - initial API and implementation
#
package ODO::Ontology::RDFS::Vocabulary;

use strict;
use warnings;

use ODO::Node;

use base qw/ODO::Ontology::Vocabulary/;

use vars qw /$VERSION/;
$VERSION = sprintf "%d.%02d", q$Revision: 1.7 $ =~ /: (\d+)\.(\d+)/;

use XML::Namespace
	rdf => 'http://www.w3.org/1999/02/22-rdf-syntax-ns#',
	rdfs => 'http://www.w3.org/2000/01/rdf-schema#';

our $RDF = rdf->uri();
our $RDFS = rdfs->uri();

our $RDF_METHODS;
our $RDFS_METHODS;

our $RDFS_SCHEMA_DATA=<


  xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#"
  xmlns:rdfs="http://www.w3.org/2000/01/rdf-schema#"
  xmlns:owl="http://www.w3.org/2002/07/owl#">





  Resource
  The class resource, everything.




  type
  The subject is an instance of a class.






  Class
  The class of classes.





  subClassOf
  The subject is a subclass of a class.






  subPropertyOf
  The subject is a subproperty of a property.






  Property
  The class of RDF properties.





  comment
  A description of the subject resource.






  label
  A human-readable name for the subject.






  domain
  A domain of the subject property.






  range
  A range of the subject property.






  seeAlso
  Further information about the subject resource.







  isDefinedBy
  The defininition of the subject resource.






  Literal
  The class of literal values, eg. textual strings and integers.





  Statement

  The class of RDF statements.




  subject
  The subject of the subject RDF statement.






  predicate
  The predicate of the subject RDF statement.






  object
  The object of the subject RDF statement.






  Container

  The class of RDF containers.




  Bag
  The class of unordered containers.





  Seq
  The class of ordered containers.





  Alt
  The class of containers of alternatives.





  ContainerMembershipProperty
  The class of container membership properties, rdf:_1, rdf:_2, ...,
                    all of which are sub-properties of 'member'.





  member
  A member of the subject resource.






  value
  Idiomatic property used for structured values.








  List
  The class of RDF Lists.




  nil
  The empty list, with no items in it. If the rest of a list is nil then the list has no more items in it.




  first
  The first item in the subject RDF list.






  rest
  The rest of the subject RDF list after the first item.






  Datatype
  The class of RDF datatypes.






  XMLLiteral
  The class of XML literal values.








EOT

sub BEGIN {

	$RDF_METHODS = [
		# Classes
		'XMLLiteral',
		'Property',
		'Statement',
		'Bag',
		'Seq',
		'Alt',
		'List',

		# Properties
		'type',
		'first',
		'rest',
		'nil',
		'value',
		'statement',
		'subject',
		'predicate',
		'object',
	];

	$RDFS_METHODS = [
		# Classes
		'Resource',
		'Literal',
		'Class',
		'Datatype',
		'Container',

		# Properties
		'subClassOf',
		'subPropertyOf',
		'domain',
		'range',
		'label',
		'comment',
		'member',
		'seeAlso',
		'isDefinedBy',
		'ContainerMembershipProperty',
	];

	no strict;
	no warnings;

	# RDF URIs
	for my $field (@{ $RDF_METHODS }) {
		my $name = __PACKAGE__ . "::$field";
		${ *$name } = ODO::Node::Resource->new(rdf->uri($field));
	}

	# RDFS URIs
	for my $field (@{ $RDFS_METHODS }) {
		my $name = __PACKAGE__ . "::$field";
		${ *$name } = ODO::Node::Resource->new(rdfs->uri($field));
	}
}


sub init {
	my ($self, $config) = @_;
	$self = $self->SUPER::init($config);

	no strict "refs";

	for my $field (@{ $RDF_METHODS }) {
		$self->{'uri_map_table'}->{'names'}->{ rdf->uri($field) } = $field;
		my $name = __PACKAGE__ . "::$field";
		$self->{'uri_map_table'}->{'nodes'}->{ rdf->uri($field) } = ${ *$name };
	}

	for my $field (@{ $RDFS_METHODS }) {
		$self->{'uri_map_table'}->{'names'}->{ rdfs->uri($field) } = $field;
		my $name = __PACKAGE__ . "::$field";
		$self->{'uri_map_table'}->{'nodes'}->{ rdfs->uri($field) } = ${ *$name };
	}

	return $self;
}

1;

__END__