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, $subj, $verb, $obj) = @_;

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

    $self->_check_resource($subj);
    $self->_check_resource($verb);
    $self->_check_resource($obj, 'l');

    push @{$self->{triples}}, [$subj, $verb, $obj, '<>'];
    return scalar @{$self->{triples}};
}


1;


__END__
# Below is a documentation.

=head1 NAME

RDF::Notation3::Triples - RDF/N3 generator of triples with prefixes

=head1 LICENSING

Copyright (c) 2001 Ginger Alliance. All rights reserved. This program is free 
software; you can redistribute it and/or modify it under the same terms as 
Perl itself. 

=head1 AUTHOR

Petr Cimprich, petr@gingerall.cz

=head1 SEE ALSO

perl(1), RDF::Notation3.

=cut
