Parent Directory
| 
Revision Log
Revision 1.2 - (view) (download) (as text)
| 1 : | parrello | 1.1 | #!/usr/bin/perl -w |
| 2 : | use strict; | ||
| 3 : | |||
| 4 : | use Tracer; | ||
| 5 : | parrello | 1.2 | |
| 6 : | my ($options, @parameters) = StandardSetup([], {}, "", @ARGV); | ||
| 7 : | parrello | 1.1 | |
| 8 : | DeepWarn("Bring out the comfy chair!"); | ||
| 9 : | |||
| 10 : | sub DeepWarn { | ||
| 11 : | ShallowWarn($_[0]); | ||
| 12 : | } | ||
| 13 : | |||
| 14 : | sub ShallowWarn { | ||
| 15 : | Warn($_[0]); | ||
| 16 : | } | ||
| 17 : | |||
| 18 : | 1; |
| MCS Webmaster | ViewVC Help |
| Powered by ViewVC 1.0.3 |