[Bps-public-commit] r15101 - in sd/trunk: .

[sartak at bestpractical.com]

Author: sartak
Date: Tue Aug 12 20:26:45 2008
New Revision: 15101

Added:
   sd/trunk/lib/App/SD/CLI/Command/Shell.pm
Modified:
   sd/trunk/   (props changed)

Log:
 r69439 at onn:  sartak | 2008-08-12 20:26:34 -0400
 Add a Shell subclass which gives an sd-specific preamble


Added: sd/trunk/lib/App/SD/CLI/Command/Shell.pm
==============================================================================
--- (empty file)
+++ sd/trunk/lib/App/SD/CLI/Command/Shell.pm	Tue Aug 12 20:26:45 2008
@@ -0,0 +1,12 @@
+package App::SD::CLI::Command::Shell;
+use Moose;
+extends 'Prophet::CLI::Command::Shell';
+
+sub preamble {
+    return join "\n",
+        "SD ($App::SD::VERSION; Prophet $Prophet::VERSION)",
+        'Type "help", "about", or "copying for more information.',
+}
+
+1;
+