Changeset 169
- Timestamp:
- 06/23/04 02:24:09 (4 years ago)
- Files:
-
- manage/trunk/CLI/Plugin.pm (modified) (1 diff)
- manage/trunk/manage (modified) (2 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
manage/trunk/CLI/Plugin.pm
r168 r169 19 19 20 20 # Do post-construction initialisation. This can include authentication, 21 # whatever. Returns 1 for success, 0 for not. 21 # whatever. It is called after stored configuration is laoded. Returns 1 for 22 # success, 0 for not. 22 23 sub begin() { 23 24 my $self = shift; 24 25 26 $::BANNER = "FOO"; 25 27 1; 26 28 } manage/trunk/manage
r168 r169 240 240 } 241 241 242 # Initialize modules243 exit(1) unless $CLI->begin();244 245 242 # Initialise terminal and readline 246 243 my $term = new Term::ReadLine($SELF); $term->ornaments(0); … … 281 278 } 282 279 280 # Initialize modules 281 exit(1) unless $CLI->begin(); 282 283 283 END { 284 284 $CLI->end();
