# vim:ts=4 sw=4# ----------------------------------------------------------------------------------------------------#  Name		: ETL::Pequel3::Type::Factory::Catalogue.pm#  Created	: 4 April 2007#  Author	: Mario Gaffiero (gaffie)## Copyright 1999-2007 Mario Gaffiero.# # This file is part of Pequel(TM).# # Pequel is free software; you can redistribute it and/or modify# it under the terms of the GNU General Public License as published by# the Free Software Foundation; version 2 of the License.# # Pequel is distributed in the hope that it will be useful,# but WITHOUT ANY WARRANTY; without even the implied warranty of# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the# GNU General Public License for more details.# # You should have received a copy of the GNU General Public License# along with Pequel; if not, write to the Free Software# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA# ----------------------------------------------------------------------------------------------------# Modification History# When          Version     Who     What# ----------------------------------------------------------------------------------------------------package ETL::Pequel3::Type::Factory::Catalogue;require 5.005_62;use strict;use warnings;use stl;# ----------------------------------------------------------------------------------------------------# CATALOGUE# ----------------------------------------------------------------------------------------------------{	package ETL::Pequel3::Type::Factory::Catalogue::Abstract;	use base qw(ETL::Pequel3::Type::Catalogue);	use Class::STL::ClassMembers qw( pequel_ref ),		Class::STL::ClassMembers::DataMember->new(name => 'catalogue_name', default => 'factories'),		Class::STL::ClassMembers::DataMember->new(name => 'target_mem_name', default => 'catalogue_type'),		Class::STL::ClassMembers::DataMember->new(name => 'element_type', default => 'ETL::Pequel3::Type::Factory::Abstract');	use Class::STL::ClassMembers::Constructor;	sub new_extra	{		my $self = shift;		use ETL::Pequel3::Type::DataSet;		$self->push_back(			ETL::Pequel3::Type::DataSet::Input::Factory::Global->new(),			ETL::Pequel3::Type::DataSet::Output::Factory::Global->new(),		);		return $self;	}}# ----------------------------------------------------------------------------------------------------{	package ETL::Pequel3::Type::Factory::Catalogue;	use base qw(ETL::Pequel3::Type::Factory::Catalogue::Abstract);	use Class::STL::ClassMembers;	use Class::STL::ClassMembers::SingletonConstructor;}# ----------------------------------------------------------------------------------------------------{	package ETL::Pequel3::Type::Factory::Catalogue::User;	use base qw(ETL::Pequel3::Type::Factory::Catalogue::Abstract);	use Class::STL::ClassMembers;	use Class::STL::ClassMembers::Constructor;}# ----------------------------------------------------------------------------------------------------1;