File Coverage

blib/lib/ODO/RDFS/Class/PropertiesContainer.pm

Criterion	Covered	Total	%
statement	20	30	66.6
branch	2	6	33.3
condition	1	3	33.3
subroutine	6	6	100.0
pod	0	1	0.0
total	29	46	63.0

package ODO::RDFS::Class::PropertiesContainer;

use strict;
use warnings;

use vars qw( $AUTOLOAD @ISA );
use ODO::RDFS::Resource::PropertiesContainer;

@ISA = (  'ODO::RDFS::Resource::PropertiesContainer', );
use vars qw /$VERSION/;
$VERSION = sprintf "%d.%02d", q$Revision: 1.3 $ =~ /: (\d+)\.(\d+)/;
# Methods


sub subClassOf {
	my $self = shift;

	my $parent = $self->{'parent'};
	unless($parent) {
		die('Fatal error in property container: parent object is not defined!');
	}

	if(   scalar(@_) > 0
	   && UNIVERSAL::isa($_[0], 'ODO::RDFS::Properties::subClassOf')) {

		my $value = $_[0]->value();

		my $property = ODO::Node::Resource->new( ODO::RDFS::Properties::subClassOf->objectURI() );
		if(UNIVERSAL::isa($value, 'ODO::Node::Literal')) {
			my $stmt = ODO::Statement->new($parent->subject(), $property, $value);
			$parent->graph()->add($stmt);
		}
		else {
			# The property's value is a URI with other attached URIs so add them
			# all to the graph
			my $stmt = ODO::Statement->new($parent->subject(), $property, $_[0]->subject());
			$parent->graph()->add($stmt);
			$parent->graph()->add( @{ $value } );
		}
	}

	return $parent->get_property_values( 'ODO::RDFS::Properties::subClassOf' );
}

1;