Mercurial > repos > cpt > cpt_psm_recombine
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 |