0
|
1 package CPT::Parameter::File::OutputFormat;
|
|
2 use Moose;
|
|
3 with 'CPT::Parameter';
|
|
4
|
|
5
|
|
6
|
|
7 sub galaxy_input {
|
|
8
|
|
9 # Required by our parent. For an output file, this is non-functional
|
|
10 my ( $self, $xml_writer ) = @_;
|
|
11 }
|
|
12
|
|
13
|
|
14 sub galaxy_output {
|
|
15 my ( $self, $xml_writer ) = @_;
|
|
16 }
|
|
17
|
|
18 sub validate_individual {
|
|
19 my ($self, $val) = @_;
|
|
20 return 1;
|
|
21 }
|
|
22
|
|
23
|
|
24 sub getopt_format {
|
|
25 return '=s';
|
|
26 }
|
|
27
|
|
28 no Moose;
|
|
29 1;
|
|
30
|
|
31 __END__
|
|
32
|
|
33 =pod
|
|
34
|
|
35 =encoding UTF-8
|
|
36
|
|
37 =head1 NAME
|
|
38
|
|
39 CPT::Parameter::File::OutputFormat
|
|
40
|
|
41 =head1 VERSION
|
|
42
|
|
43 version 1.99.4
|
|
44
|
|
45 =head2 galaxy_input
|
|
46
|
|
47 $file_param->galaxy_input($xml_writer); # where $file_param is a CPT::Parameter::*
|
|
48
|
|
49 Utilises the $xml_writer to add a <data> block in the <output> section
|
|
50
|
|
51 =head2 galaxy_output
|
|
52
|
|
53 $file_param->galaxy_output($xml_writer); # where $file_param is a CPT::Parameter::*
|
|
54
|
|
55 Utilises the $xml_writer to add a <data> block in the <output> section
|
|
56
|
|
57 =head2 getopt_format
|
|
58
|
|
59 Returns the format character for a given CPT::Parameter::* type
|
|
60
|
|
61 =head1 AUTHOR
|
|
62
|
|
63 Eric Rasche <rasche.eric@yandex.ru>
|
|
64
|
|
65 =head1 COPYRIGHT AND LICENSE
|
|
66
|
|
67 This software is Copyright (c) 2014 by Eric Rasche.
|
|
68
|
|
69 This is free software, licensed under:
|
|
70
|
|
71 The GNU General Public License, Version 3, June 2007
|
|
72
|
|
73 =cut
|