Improve help for "set variable"

rocky · Jan 5, 2012 · 4618596 · 4618596
1 parent 98de304
commit 4618596
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/lib/Devel/Trepan/CmdProcessor/Command/Set_Subcmd/Variable.pm b/lib/Devel/Trepan/CmdProcessor/Command/Set_Subcmd/Variable.pm
@@ -14,9 +14,18 @@ use vars qw(@ISA @SUBCMD_VARS);
 # Values inherited from parent
 use vars @Devel::Trepan::CmdProcessor::Command::Subcmd::SUBCMD_VARS;
 
+## FIXME: do automatically.
+our $CMD = "set variable";
+
 our $HELP   = <<"HELP";
+${CMD} VARIABLE_NAME VALUE
+
+Set a 'my' or 'our' variable. VALUE must be a constant. 
+
+Examples:
 
-Set a 'my' or 'our' variable
+$CMD \$foo 20
+$CMD \@ARY = (1,2,3)
 HELP
 our $SHORT_HELP   = "Set a 'my' or 'our' variable";