diff options
| author | fukachan <fukachan> | 2001-11-25 03:13:50 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-11-25 03:13:50 +0000 |
| commit | 0ef4f79ad037196bc22a5b368613df061ebd04f8 (patch) | |
| tree | ce7ac516001e9050f17b012f2b0a27e7969e2029 /fml/lib/FML/Process/DocViewer.pm | |
| parent | c54e31604216f2655535066d835e6e3d4065f11d (diff) | |
| download | fml8-0ef4f79ad037196bc22a5b368613df061ebd04f8.tar.gz fml8-0ef4f79ad037196bc22a5b368613df061ebd04f8.tar.bz2 fml8-0ef4f79ad037196bc22a5b368613df061ebd04f8.zip | |
implement help() method
Diffstat (limited to 'fml/lib/FML/Process/DocViewer.pm')
| -rw-r--r-- | fml/lib/FML/Process/DocViewer.pm | 32 |
1 files changed, 31 insertions, 1 deletions
diff --git a/fml/lib/FML/Process/DocViewer.pm b/fml/lib/FML/Process/DocViewer.pm index c1ae768d..1a517d87 100644 --- a/fml/lib/FML/Process/DocViewer.pm +++ b/fml/lib/FML/Process/DocViewer.pm @@ -4,7 +4,7 @@ # Copyright (C) 2000,2001 Ken'ichi Fukamachi # All rights reserved. # -# $FML: DocViewer.pm,v 1.3 2001/05/29 16:21:16 fukachan Exp $ +# $FML: DocViewer.pm,v 1.4 2001/11/04 03:44:46 fukachan Exp $ # package FML::Process::DocViewer; @@ -103,6 +103,36 @@ sub run } +=head2 help() + +=cut + + +# Descriptions: show help +# Arguments: none +# Side Effects: none +# Return Value: none +sub help +{ + my $name = $0; + eval { + use File::Basename; + $name = basename($0); + }; + +print <<"_EOF_"; + +Usage: $name \$command \$ml_name [options] + +$name help \$ml_name show this help + +$name subscribe \$ml_name ADDRESS +$name unsubscribe \$ml_name ADDRESS + +_EOF_ +} + + # Descriptions: fmldoc wrapper / top level dispacher # Arguments: $self $args # Side Effects: none |