properties.pm

普通的ETL工具

}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::ScriptVersion;
	use base qw(ETL::Pequel3::Type::Properties::Configuration::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'script_version'),
		Class::STL::ClassMembers::DataMember->new(name => 'user_program_info', default => 1),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => 1),
		Class::STL::ClassMembers::DataMember->new(name => 'global', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'xs_type', default => 'decimal'),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'User pequel script version number.');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::ScriptAuthor;
	use base qw(ETL::Pequel3::Type::Properties::Configuration::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'script_author'),
		Class::STL::ClassMembers::DataMember->new(name => 'user_program_info', default => 1),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => getlogin),
		Class::STL::ClassMembers::DataMember->new(name => 'global', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'xs_type', default => 'NMTOKEN'),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'User pequel script author name.');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::TabSize;
	use base qw(ETL::Pequel3::Type::Properties::Configuration::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'tab_size'),
		Class::STL::ClassMembers::DataMember->new(name => 'user_program_info', default => 1),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => 4),
		Class::STL::ClassMembers::DataMember->new(name => 'global', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'validate', default => '^\d+$'),
		Class::STL::ClassMembers::DataMember->new(name => 'xs_type', default => 'integer'),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Tab size in characters for generated program');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::TabType;
	use base qw(ETL::Pequel3::Type::Properties::Configuration::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'tab_type'),
		Class::STL::ClassMembers::DataMember->new(name => 'user_program_info', default => 1),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => 'spaces'),
		Class::STL::ClassMembers::DataMember->new(name => 'global', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'validate', default => '^(hard|spaces)$'),
		Class::STL::ClassMembers::DataMember->new(name => 'xs_type', default => 'NMTOKEN'),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Generated program tab type -- hard | spaces');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::DividerChar;
	use base qw(ETL::Pequel3::Type::Properties::Configuration::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'divider_char'),
		Class::STL::ClassMembers::DataMember->new(name => 'user_program_info', default => 1),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => '+'),
		Class::STL::ClassMembers::DataMember->new(name => 'global', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'xs_type', default => 'byte'),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Generated program divider line character');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::DividerLength;
	use base qw(ETL::Pequel3::Type::Properties::Configuration::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'divider_length'),
		Class::STL::ClassMembers::DataMember->new(name => 'user_program_info', default => 1),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => 100),
		Class::STL::ClassMembers::DataMember->new(name => 'xs_type', default => 'integer'),
		Class::STL::ClassMembers::DataMember->new(name => 'global', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Generated program divider line length');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::DeclMinPadSize;
	use base qw(ETL::Pequel3::Type::Properties::Configuration::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'decl_min_pad_size'),
		Class::STL::ClassMembers::DataMember->new(name => 'user_program_info', default => 1),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => 12),
		Class::STL::ClassMembers::DataMember->new(name => 'xs_type', default => 'integer'),
		Class::STL::ClassMembers::DataMember->new(name => 'global', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Generated program minimum pad size for declaration segment');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::NoNulls;
	use base qw(ETL::Pequel3::Type::Properties::Configuration::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'no_nulls'),
		Class::STL::ClassMembers::DataMember->new(name => 'user_program_info', default => 1),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'global', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'validate', default => '^(0|1)$'),
		Class::STL::ClassMembers::DataMember->new(name => 'xs_type', default => 'byte'),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Do not print zero for null numeric/decimal');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{		
	package ETL::Pequel3::Type::Properties::RmCtrlm;
	use base qw(ETL::Pequel3::Type::Properties::Configuration::Abstract);
	use Class::STL::ClassMembers;
	use Class::STL::ClassMembers::Constructor;
	sub new_extra
	{
		my $self = shift;
		$self->name('rmctrlm');
		$self->value(0);
		$self->global(0);
		$self->user_program_info(1);
		$self->description('Remove extra ctrl-m from end-of-record on input data stream');
		return $self;
	}
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::On;
	use base qw(ETL::Pequel3::Type::Properties::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'on'),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => 'input'),
		Class::STL::ClassMembers::DataMember->new(name => 'global', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'xs_type', default => 'NMTOKEN'),
		Class::STL::ClassMembers::DataMember->new(name => 'validate', default => '^(input|output)$');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::PequelType;
	use base qw(ETL::Pequel3::Type::Properties::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'pequel_type'),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => 'string'),
		Class::STL::ClassMembers::DataMember->new(name => 'global', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'validate_catalogue', default => 'pequel_types'),
		Class::STL::ClassMembers::DataMember->new(name => 'xs_type', default => 'NMTOKEN'),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => '');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::DateType;
	use base qw(ETL::Pequel3::Type::Properties::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'date_type'),
#?		Class::STL::ClassMembers::DataMember->new(name => 'default', default => 'config:default_datetype'),
		Class::STL::ClassMembers::DataMember->new(name => 'global', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'validate_catalogue', default => 'date_types'),
		Class::STL::ClassMembers::DataMember->new(name => 'xs_type', default => 'token'),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Date type');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::TableType;
	use base qw(ETL::Pequel3::Type::Properties::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'table_type'),
#<		Class::STL::ClassMembers::DataMember->new(name => 'default', default => 'external_dynamic'),
		Class::STL::ClassMembers::DataMember->new(name => 'global', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'validate_catalogue', default => 'table_types'),
		Class::STL::ClassMembers::DataMember->new(name => 'xs_type', default => 'token'),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Table type');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::AggregateType;
	use base qw(ETL::Pequel3::Type::Properties::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'aggregate_type'),
		Class::STL::ClassMembers::DataMember->new(name => 'global', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'validate_catalogue', default => 'aggregates'),
		Class::STL::ClassMembers::DataMember->new(name => 'xs_type', default => 'NMTOKEN'),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => '');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::DefaultDateType;
	use base qw(ETL::Pequel3::Type::Properties::Configuration::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'default_datetype'),
		Class::STL::ClassMembers::DataMember->new(name => 'user_program_info', default => 1),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => 'YYYYMMDD'),
		Class::STL::ClassMembers::DataMember->new(name => 'global', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'xs_type', default => 'NMTOKEN'),
		Class::STL::ClassMembers::DataMember->new(name => 'validate_catalogue', default => 'date_types'),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Default date format');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::FieldName;
	use base qw(ETL::Pequel3::Type::Properties::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'field_name'),
		Class::STL::ClassMembers::DataMember->new(name => 'xs_type', default => 'token'),
		Class::STL::ClassMembers::DataMember->new(name => 'validate', default => '[_|\w]+');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::SortDirection;
	use base qw(ETL::Pequel3::Type::Properties::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'sort_direction'),
		Class::STL::ClassMembers::DataMember->new(name => 'validate', default => '^(asc|desc)$'),
		Class::STL::ClassMembers::DataMember->new(name => 'xs_type', default => 'NMTOKEN'),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => 'asc');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::ShowSynonyms;
	use base qw(ETL::Pequel3::Type::Properties::Configuration::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'show_synonyms'),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => 1),
		Class::STL::ClassMembers::DataMember->new(name => 'user_program_info', default => 1),
		Class::STL::ClassMembers::DataMember->new(name => 'global', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'validate', default => '^(0|1)$'),
		Class::STL::ClassMembers::DataMember->new(name => 'xs_type', default => 'byte'),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Print field synonyms in generated code');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::Statistics;
	use base qw(ETL::Pequel3::Type::Properties::Configuration::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'statistics'),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => 1),
		Class::STL::ClassMembers::DataMember->new(name => 'user_program_info', default => 1),
		Class::STL::ClassMembers::DataMember->new(name => 'global', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'validate', default => '^(0|1)$'),
		Class::STL::ClassMembers::DataMember->new(name => 'xs_type', default => 'byte'),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Display process benchmark statistics');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------