File Coverage

blib/lib/RDF/Core/Model.pm

Criterion	Covered	Total	%
statement	9	57	15.7
branch	0	20	0.0
condition	0	39	0.0
subroutine	3	14	21.4
pod	10	10	100.0
total	22	140	15.7

#
# The contents of this file are subject to the Mozilla Public
# License Version 1.1 (the "License"); you may not use this file
# except in compliance with the License. You may obtain a copy of
# the License at http://www.mozilla.org/MPL/
#
# Software distributed under the License is distributed on an "AS
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
# implied. See the License for the specific language governing
# rights and limitations under the License.
#
# The Original Code is the RDF::Core module
#
# The Initial Developer of the Original Code is Ginger Alliance Ltd.
# Portions created by Ginger Alliance are
# Copyright (C) 2001 Ginger Alliance Ltd.
# All Rights Reserved.
#
# Contributor(s):
#
# Alternatively, the contents of this file may be used under the
# terms of the GNU General Public License Version 2 or later (the
# "GPL"), in which case the provisions of the GPL are applicable
# instead of those above.  If you wish to allow use of your
# version of this file only under the terms of the GPL and not to
# allow others to use your version of this file under the MPL,
# indicate your decision by deleting the provisions above and
# replace them with the notice and other provisions required by
# the GPL.  If you do not delete the provisions above, a recipient
# may use your version of this file under either the MPL or the
# GPL.
#

package RDF::Core::Model;

use strict;
require Exporter;

require RDF::Core::Resource;
use RDF::Core::Constants qw(:rdf);

use Carp;

sub new {
    my ($pkg,%options) = @_;
    $pkg = ref $pkg || $pkg;
    my $self = {};
    $self->{_options} = \%options;
    bless $self, $pkg;
}
sub setOptions {
    my ($self,$options) = @_;
    $self->{_options} = $options;
}
sub getOptions {
    my $self = shift;
    return $self->{_options};
}
sub addStmt {
    my $self = shift;
    carp "No storage defined"
      unless exists $self->{_options}->{Storage} &&
	defined $self->{_options}->{Storage} &&
	  ref  $self->{_options}->{Storage};
     $self->{_options}->{Storage}->addStmt(@_);
}
sub removeStmt {
    my $self = shift;
    carp "No storage defined"
      unless exists $self->{_options}->{Storage} &&
	defined $self->{_options}->{Storage} &&
	  ref  $self->{_options}->{Storage};
     $self->{_options}->{Storage}->removeStmt(@_);
}
sub existsStmt {
    my $self = shift;
    carp "No storage defined"
      unless exists $self->{_options}->{Storage} &&
	defined $self->{_options}->{Storage} &&
	  ref  $self->{_options}->{Storage};
     $self->{_options}->{Storage}->existsStmt(@_);
}
sub getStmts {
    my $self = shift;
    carp "No storage defined"
      unless exists $self->{_options}->{Storage} &&
	defined $self->{_options}->{Storage} &&
	  ref  $self->{_options}->{Storage};
     $self->{_options}->{Storage}->getStmts(@_);
}
sub countStmts {
    my $self = shift;
    carp "No storage defined"
      unless exists $self->{_options}->{Storage} &&
	defined $self->{_options}->{Storage} &&
	  ref  $self->{_options}->{Storage};
     $self->{_options}->{Storage}->countStmts(@_);
}

sub getObjects {
    my ($self, $subj, $pred) = @_;
    $subj = new RDF::Core::Resource($subj)
      unless (ref $subj && $subj->isa("RDF::Core::Resource"));
    $pred = new RDF::Core::Resource($pred)
      unless (ref $pred && $pred->isa("RDF::Core::Resource"));
    my $enum = $self->getStmts($subj, $pred, undef);
    my $stmt = $enum->getFirst;
    my $ret = [];
    while ($stmt) {
	push @$ret, $stmt->getObject;
	$stmt = $enum->getNext;
    }
    return $ret;
}

sub _rdf_container_sort {
    my ($a, $b) = @_;
    my $aa = $1 if $a->getPredicate->getURI =~ /.*#_(\d+)/;
    my $bb = $1 if $b->getPredicate->getURI =~ /.*#_(\d+)/;
    return $aa <=> $bb;
}

sub getContainerObjects {
    my ($self, $cont) = @_;
    my $members = $self->getStmts($cont, undef, undef);
    my $member = $members->getFirst;
    my @arr;
    while ($member) {
	push @arr, $member unless $member->getPredicate->equals(RDF_TYPE);
	$member = $members->getNext;
    }

    return [map {$_->getObject} sort {_rdf_container_sort($a, $b)} @arr];
}

1;
__END__