?? catalogue.pm
字號:
# 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;
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -