File Coverage

blib/lib/RDF/Notation3/PrefTriples.pm

Criterion	Covered	Total	%
statement	15	28	53.5
branch	1	4	25.0
condition			n/a
subroutine	4	5	80.0
pod	0	1	0.0
total	20	38	52.6

use strict;
#use warnings;

package RDF::Notation3::PrefTriples;

require 5.005_62;
use RDF::Notation3;
use RDF::Notation3::Template::TTriples;

############################################################

@RDF::Notation3::PrefTriples::ISA =
  qw(RDF::Notation3::Template::TTriples RDF::Notation3);


sub _process_statement {
    my ($self, $subject, $properties) = @_;

    foreach (@$properties) {
	if ($_->[0] ne 'i') {

	    for (my $i = 1; $i < scalar @$_; $i++ ) {

		push @{$self->{triples}},
		  [$subject, $_->[0], $_->[$i], $self->{context}];
	    }
	} else {
	    # inverse mode (is, <-)
	    shift @$_;

	    for (my $i = 1; $i < scalar @$_; $i++ ) {

		push @{$self->{triples}},
		  [$_->[$i], $_->[0], $subject, $self->{context}];
	    }
	}
    }
}


sub add_triple {
    my ($self, $s, $p, $o) = @_;

    $self->{triples} or $self->{triples} = [];

    $self->_check_resource($s, $s);
    $self->_check_resource($s, $p);
    $self->_check_resource($s, $o, 'l');

    push @{$self->{triples}}, [$s, $p, $o, '<>'];
    return scalar @{$self->{triples}};
}


1;


__END__