diff cpt_psm_prep/lib/CPT/Parameter/File/OutputFormat.pm @ 0:e4de0a0e90c8 draft

Uploaded
author cpt
date Tue, 05 Jul 2022 05:38:34 +0000
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/cpt_psm_prep/lib/CPT/Parameter/File/OutputFormat.pm	Tue Jul 05 05:38:34 2022 +0000
@@ -0,0 +1,73 @@
+package CPT::Parameter::File::OutputFormat;
+use Moose;
+with 'CPT::Parameter';
+
+
+
+sub galaxy_input {
+
+	# Required by our parent. For an output file, this is non-functional
+	my ( $self, $xml_writer ) = @_;
+}
+
+
+sub galaxy_output {
+	my ( $self, $xml_writer ) = @_;
+}
+
+sub validate_individual {
+	my ($self, $val) = @_;
+	return 1;
+}
+
+
+sub getopt_format {
+	return '=s';
+}
+
+no Moose;
+1;
+
+__END__
+
+=pod
+
+=encoding UTF-8
+
+=head1 NAME
+
+CPT::Parameter::File::OutputFormat
+
+=head1 VERSION
+
+version 1.99.4
+
+=head2 galaxy_input
+
+	$file_param->galaxy_input($xml_writer); # where $file_param is a CPT::Parameter::*
+
+Utilises the $xml_writer to add a <data> block in the <output> section
+
+=head2 galaxy_output
+
+	$file_param->galaxy_output($xml_writer); # where $file_param is a CPT::Parameter::*
+
+Utilises the $xml_writer to add a <data> block in the <output> section
+
+=head2 getopt_format
+
+Returns the format character for a given CPT::Parameter::* type
+
+=head1 AUTHOR
+
+Eric Rasche <rasche.eric@yandex.ru>
+
+=head1 COPYRIGHT AND LICENSE
+
+This software is Copyright (c) 2014 by Eric Rasche.
+
+This is free software, licensed under:
+
+  The GNU General Public License, Version 3, June 2007
+
+=cut