diff options
| author | fukachan <fukachan> | 2006-10-22 14:18:05 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2006-10-22 14:18:05 +0000 |
| commit | 76dacf84693521e20d86e2ff34193ed5da561248 (patch) | |
| tree | 6f992a4607a452b2d7bab6b500f402249cf3c8df /fml/lib/FML/Command/Syntax.pm | |
| parent | 1a69d4b654bae192ec110d56d1e8b9f8c5466038 (diff) | |
| download | fml8-76dacf84693521e20d86e2ff34193ed5da561248.tar.gz fml8-76dacf84693521e20d86e2ff34193ed5da561248.tar.bz2 fml8-76dacf84693521e20d86e2ff34193ed5da561248.zip | |
clean up. fix comments.
Diffstat (limited to 'fml/lib/FML/Command/Syntax.pm')
| -rw-r--r-- | fml/lib/FML/Command/Syntax.pm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/fml/lib/FML/Command/Syntax.pm b/fml/lib/FML/Command/Syntax.pm index 43b30d70..71683c97 100644 --- a/fml/lib/FML/Command/Syntax.pm +++ b/fml/lib/FML/Command/Syntax.pm @@ -4,7 +4,7 @@ # All rights reserved. This program is free software; you can # redistribute it and/or modify it under the same terms as Perl itself. # -# $FML: Syntax.pm,v 1.3 2006/03/05 08:08:36 fukachan Exp $ +# $FML: Syntax.pm,v 1.4 2006/03/05 09:50:42 fukachan Exp $ # package FML::Command::Syntax; @@ -18,8 +18,14 @@ FML::Command::Syntax - common command syntax checker. =head1 SYNOPSIS +use FML::Command::Syntax; +push(@ISA, qw(FML::Command::Syntax)); +$self->check_syntax_address_handler($curproc, $command_context); + =head1 DESCRIPTION +This class provides the syntax command string checker. + =head1 METHODS =head2 check_syntax_address_handler($curproc, $command_context) @@ -39,7 +45,7 @@ sub check_syntax_address_handler my ($self, $curproc, $command_context) = @_; my $comname = $command_context->get_cooked_command() || ''; my $comsubname = $command_context->get_cooked_subcommand() || ''; - my $options = $command_context->get_options() || []; + my $options = $command_context->get_options() || []; my (@test) = ($comname); my $ok = 0; @@ -61,7 +67,7 @@ sub check_syntax_address_handler } } - # 2. check other comonents + # 2. validate syntax of other comonents (packed in @test array). use FML::Command; my $dispatch = new FML::Command; if ($dispatch->safe_regexp_match($curproc, $command_context, \@test)) { |