File Coverage

blib/lib/ODO/Ontology/RDFS/ObjectWriter.pm

Criterion	Covered	Total	%
statement	24	47	51.0
branch			n/a
condition			n/a
subroutine	8	13	61.5
pod			n/a
total	32	60	53.3

#
# Copyright (c) 2005-2006 IBM Corporation.
#
# All rights reserved. This program and the accompanying materials
# are made available under the terms of the Eclipse Public License v1.0
# which accompanies this distribution, and is available at
# http://www.eclipse.org/legal/epl-v10.html
#
# File:        $Source: /var/lib/cvs/ODO/lib/ODO/Ontology/RDFS/ObjectWriter.pm,v $
# Created by:  Stephen Evanchik( [e-mail] )
# Created on:  03/02/2005
# Revision:	$Id: ObjectWriter.pm,v 1.2 2009-11-25 17:58:26 ubuntu Exp $
#
# Contributors:
#     IBM Corporation - initial API and implementation
#
package ODO::Ontology::RDFS::ObjectWriter::Constructor;

use strict;
use warnings;

use base qw/ODO::Ontology::ObjectWriter/;

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

use ODO::Exception;

our @METHODS = qw/URI description schemaURI propertyContainerName properties queryString queryObject/;

__PACKAGE__->mk_accessors(@METHODS);

=item serialize( )

=cut

sub serialize {
	my $self = shift;

	my $cons_data = {
		URI=> $self->URI(),
		description=> $self->description(),
		schemaURI=> $self->schemaURI(),
		queryString=> $self->queryString(),
		propertyInitializers=> $self->serializePropertyInitializers(),
		propertyContainerName=> $self->propertyContainerName(),
		properties=> $self->properties(),
	};

	return $self->SUPER::serialize(template_data=> $cons_data);
}


sub serializePropertyInitializers {
	my $self = shift;

	my @initializerMethods;
	foreach my $p (@{ $self->properties() }) {
		push @initializerMethods, ODO::Ontology::RDFS::ObjectWriter::PropertyInitializer->new(%{ $p })->serialize();
	}
	return \@initializerMethods;
}


sub init {
	my ($self, $config) = @_;
	$self = $self->SUPER::init($config);
	$self->params($config, @METHODS);
	$self->template_filename('ODO/Ontology/RDFS/Templates/Constructor.tt');
	return $self;
}

package ODO::Ontology::RDFS::ObjectWriter::PropertyInitializer;

use base qw/ODO::Ontology::ObjectWriter/;

our @METHODS = qw/shortName packageName/;

__PACKAGE__->mk_accessors(@METHODS);


=item serialize( )

=cut

sub serialize {
	my $self = shift;

	my $property_initializer = {
		shortName=> $self->shortName(),
		packageName=> $self->packageName(),
	};

	return $self->SUPER::serialize(template_data=> $property_initializer);
}


sub init {
	my ($self, $config) = @_;
	$self = $self->SUPER::init($config);
	$self->params($config, @METHODS);
	$self->template_filename('ODO/Ontology/RDFS/Templates/PropertyInitializer.tt');
	return $self;
}


package ODO::Ontology::RDFS::ObjectWriter::Package;

use base qw/ODO::Ontology::ObjectWriter::Package/;


package ODO::Ontology::RDFS::ObjectWriter::PropertiesContainer;

use base qw/ODO::Ontology::ObjectWriter::PropertiesContainer/;


1;

__END__