comparison lib/CPT/Writer/Dummy.pm @ 1:97ef96676b48 draft

planemo upload commit 94b0cd1fff0826c6db3e7dc0c91c0c5a8be8bb0c
author cpt
date Mon, 05 Jun 2023 02:51:26 +0000
parents
children
comparison
equal deleted inserted replaced
0:b18e8268bf4e 1:97ef96676b48
1 package CPT::Writer::Dummy;
2 use Moose;
3 with 'CPT::Writer';
4
5 sub process {
6 my ($self) = @_;
7 $self->processed_data( $self->data );
8 $self->processing_complete(1);
9 }
10
11 sub write {
12 my ($self) = @_;
13 # Do nothing. This object sees/hears nothing.
14 # Except we would like to consume a single filename
15 push(@{$self->used_filenames()}, $self->OutputFilesClass->get_next_file());
16 return;
17 }
18
19 sub suffix {
20 return 'txt';
21 }
22 no Moose;
23 1;
24
25 __END__
26
27 =pod
28
29 =encoding UTF-8
30
31 =head1 NAME
32
33 CPT::Writer::Dummy
34
35 =head1 VERSION
36
37 version 1.99.4
38
39 =head1 AUTHOR
40
41 Eric Rasche <rasche.eric@yandex.ru>
42
43 =head1 COPYRIGHT AND LICENSE
44
45 This software is Copyright (c) 2014 by Eric Rasche.
46
47 This is free software, licensed under:
48
49 The GNU General Public License, Version 3, June 2007
50
51 =cut