File Coverage

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

Criterion	Covered	Total	%
statement	47	117	40.1
branch	14	42	33.3
condition	7	21	33.3
subroutine	11	11	100.0
pod	0	7	0.0
total	79	198	39.9

package ODO::RDFS::Resource::PropertiesContainer;

use strict;
use warnings;

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


sub comment {
	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::comment')) {

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

		my $property = ODO::Node::Resource->new( ODO::RDFS::Properties::comment->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::comment' );
}

sub label {
	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::label')) {

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

		my $property = ODO::Node::Resource->new( ODO::RDFS::Properties::label->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::label' );
}

sub member {
	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::member')) {

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

		my $property = ODO::Node::Resource->new( ODO::RDFS::Properties::member->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::member' );
}

sub seeAlso {
	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::seeAlso')) {

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

		my $property = ODO::Node::Resource->new( ODO::RDFS::Properties::seeAlso->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::seeAlso' );
}

sub isDefinedBy {
	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::isDefinedBy')) {

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

		my $property = ODO::Node::Resource->new( ODO::RDFS::Properties::isDefinedBy->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::isDefinedBy' );
}

sub type {
	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::type')) {

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

		my $property = ODO::Node::Resource->new( ODO::RDFS::Properties::type->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::type' );
}

sub value {
	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::value')) {

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

		my $property = ODO::Node::Resource->new( ODO::RDFS::Properties::value->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::value' );
}

1;