diff options
| author | fukachan <fukachan> | 2002-07-02 03:59:06 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2002-07-02 03:59:06 +0000 |
| commit | f57e831b39efbea31dfb89a34fc454e7f93fc473 (patch) | |
| tree | 22d25851c569e89959d0d809dad29ca09e5e26b6 /fml/lib/FML/Process/Flow.pm | |
| parent | e55cf2fe9cb96082764d5097902f0694a9a39a44 (diff) | |
| download | fml8-f57e831b39efbea31dfb89a34fc454e7f93fc473.tar.gz fml8-f57e831b39efbea31dfb89a34fc454e7f93fc473.tar.bz2 fml8-f57e831b39efbea31dfb89a34fc454e7f93fc473.zip | |
clean up/fix comments, fix copyright
Diffstat (limited to 'fml/lib/FML/Process/Flow.pm')
| -rw-r--r-- | fml/lib/FML/Process/Flow.pm | 22 |
1 files changed, 15 insertions, 7 deletions
diff --git a/fml/lib/FML/Process/Flow.pm b/fml/lib/FML/Process/Flow.pm index 97e0870f..1f630219 100644 --- a/fml/lib/FML/Process/Flow.pm +++ b/fml/lib/FML/Process/Flow.pm @@ -1,10 +1,10 @@ #-*- perl -*- # -# Copyright (C) 2001 Ken'ichi Fukamachi +# Copyright (C) 2001,2002 Ken'ichi Fukamachi # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Flow.pm,v 1.14 2002/04/27 02:06:18 fukachan Exp $ +# $FML: Flow.pm,v 1.15 2002/04/27 05:25:02 fukachan Exp $ # package FML::Process::Flow; @@ -14,26 +14,31 @@ use Carp; =head1 NAME -FML::Process::Flow - describe process flow +FML::Process::Flow - the process flow =head1 SYNOPSIS use FML::Process::Flow; FML::Process::Flow::ProcessStart($obj, $args); -where C<$obj> is the FML::Process::C<something> object. +where C<$obj> is an FML::Process::C<something> object and C<$args> is HASH REFERENCE. =head1 DESCRIPTION This module describes the fml program flow. All methods, even if -dummy, should be implemented in each module for FML::Process::CLASS. -This flow is same among fml processes which includes +dummy, should be implemented in each FML::Process::CLASS. +This flow is same among fml processes such as programs kicked by MTA, command line interfaces and CGI's. # create a new process object my $process = $pkg->new($args); + # XXX private method to show help ASAP + # XXX we need to trap here since $process object is clarified after + # XXX $pkg->new() above. + $process->_trap_help($args); + # e.g. parse the incoming message (e.g. STDIN) $process->prepare($args); @@ -48,6 +53,9 @@ programs kicked by MTA, command line interfaces and CGI's. # closing the process $process->finish($args); + # clean up tmporary files + $process->clean_up_tmpfiles(); + =cut @@ -99,7 +107,7 @@ Ken'ichi Fukamachi =head1 COPYRIGHT -Copyright (C) 2001 Ken'ichi Fukamachi +Copyright (C) 2001,2002 Ken'ichi Fukamachi All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. |
