properties.pm

普通的ETL工具

{
	package ETL::Pequel3::Type::Properties::DataSetSpec;
	use base qw(ETL::Pequel3::Type::Properties::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'dataset_spec'),
#<		Class::STL::ClassMembers::DataMember->new(name => 'default', default => 'ascii:STDIN'),
		Class::STL::ClassMembers::DataMember->new(name => 'CDATA', default => 1), # CDATA because may contain complex SQL stmnts;
		Class::STL::ClassMembers::DataMember->new(name => 'xs_type', default => 'token'),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Dataset specification');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::Optimise;
	use base qw(ETL::Pequel3::Type::Properties::Configuration::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'optimise'),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => 0),
		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 => 'description', default => 'Optimise generated code');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::Verbose;
	use base qw(ETL::Pequel3::Type::Properties::Configuration::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'verbose'),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => 0),
		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 => 'xs_type', default => 'integer'),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Display progress information');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::InputRecordLimit;
	use base qw(ETL::Pequel3::Type::Properties::Configuration::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'input_record_limit'),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => 0),
		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 => 'xs_type', default => 'integer'),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Input record process limit count -- process only initial <limit> records');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::BenchmarkOn;
	use base qw(ETL::Pequel3::Type::Properties::Configuration::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'benchmark_on'),
		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 program execution benchmark statistics');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::DefaultListDelimiter;
	use base qw(ETL::Pequel3::Type::Properties::Configuration::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'default_list_delimiter'),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => ','),
		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 => '^(,|-|+|_|~|\|| |\\s+)$'), 
		Class::STL::ClassMembers::DataMember->new(name => 'xs_type', default => 'token'),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Default delimiter for list/array fields');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::DefaultDecimalPlaces;
	use base qw(ETL::Pequel3::Type::Properties::Configuration::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'default_decimal_places'),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => '2'),
		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 => '^\d+$'), 
		Class::STL::ClassMembers::DataMember->new(name => 'xs_type', default => 'integer'),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Default decimal place position for amount fields');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::Silent;
	use base qw(ETL::Pequel3::Type::Properties::Configuration::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'silent'),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => 0),
		Class::STL::ClassMembers::DataMember->new(name => 'user_program_info', default => 1),
		Class::STL::ClassMembers::DataMember->new(name => 'description', default => 'Supress all progress information');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::SortCmd;
	use base qw(ETL::Pequel3::Type::Properties::Configuration::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'sort_cmd'),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => 'sort'),
		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 => 'description', default => 'External sort command name');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::Sorter;
	use base qw(ETL::Pequel3::Type::Properties::Configuration::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'sorter'),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => 'unix'),
		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 => 'description', default => 'External sort command name');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::SortArgs;
	use base qw(ETL::Pequel3::Type::Properties::Configuration::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'sort_args'),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => ''),
		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 => 'description', default => 'External sort command pre-set arguments');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::SortTmpDir;
	use base qw(ETL::Pequel3::Type::Properties::Configuration::Abstract);
	use Class::STL::ClassMembers
		Class::STL::ClassMembers::DataMember->new(name => 'name', default => 'sort_tmp_dir'),
		Class::STL::ClassMembers::DataMember->new(name => 'default', default => ''),
		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 => 'description', default => 'External sort command temp directory');
	use Class::STL::ClassMembers::Constructor;
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::ScriptName; # TODO ???
	use base qw(ETL::Pequel3::Type::Properties::Abstract);
	use Class::STL::ClassMembers;
	use Class::STL::ClassMembers::Constructor;
	sub new_extra
	{
		my $self = shift;
		$self->name('script_name');
		$self->description('name of script currently executing');
		$self->value($0);
		$self->global(0);
		$self->user_program_info(1);
		return $self;
	}
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::InlineCc;
	use base qw(ETL::Pequel3::Type::Properties::Abstract);
	use Class::STL::ClassMembers;
	use Class::STL::ClassMembers::Constructor;
	sub new_extra
	{
		my $self = shift;
		$self->name('inline_cc');
		$self->description('inline: CC');
		$self->global(0);
		$self->user_program_info(0);
		return $self;
	}
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::InlineLibs;
	use base qw(ETL::Pequel3::Type::Properties::Abstract);
	use Class::STL::ClassMembers;
	use Class::STL::ClassMembers::Constructor;
	sub new_extra
	{
		my $self = shift;
		$self->name('inline_libs');
		$self->description('inline: LIBS');
		$self->global(0);
		$self->user_program_info(0);
		return $self;
	}
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::InlineInc;
	use base qw(ETL::Pequel3::Type::Properties::Abstract);
	use Class::STL::ClassMembers;
	use Class::STL::ClassMembers::Constructor;
	sub new_extra
	{
		my $self = shift;
		$self->name('inline_inc');
		$self->description('inline: INC');
		$self->global(0);
		$self->user_program_info(0);
		return $self;
	}
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::InlineCcflags;
	use base qw(ETL::Pequel3::Type::Properties::Abstract);
	use Class::STL::ClassMembers;
	use Class::STL::ClassMembers::Constructor;
	sub new_extra
	{
		my $self = shift;
		$self->name('inline_ccflags');
		$self->description('inline: CCFLAGS');
		$self->global(0);
		$self->user_program_info(0);
		return $self;
	}
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::InlineOptimize;
	use base qw(ETL::Pequel3::Type::Properties::Abstract);
	use Class::STL::ClassMembers;
	use Class::STL::ClassMembers::Constructor;
	sub new_extra
	{
		my $self = shift;
		$self->name('inline_optimize');
		$self->description('inline: OPTIMIZE');
		$self->global(0);
		$self->user_program_info(0);
		return $self;
	}
}
# ----------------------------------------------------------------------------------------------------
{
	package ETL::Pequel3::Type::Properties::InlineLddlflags;
	use base qw(ETL::Pequel3::Type::Properties::Abstract);
	use Class::STL::ClassMembers;