splitting of experiments into separate files

Author: supkoder

bin/test-ansi-color.pl

@@ -0,0 +1,16 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use utf8;
+
+use Win32::Console::ANSI;
+use Term::ANSIColor;
+
+print color 'bold blue';
+print "This text is bold blue.\n";
+print color 'reset';
+print "This text is normal.\n";
+print colored ("Bold yellow on magenta.\n", 'bold yellow on_magenta');
+print "This text is normal.\n";
+

bin/menu.pl renamed to bin/test-ansi-menu.pl

@@ -0,0 +1,19 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+use utf8;
+
+use Win32::Console::ANSI;
+use Term::ANSIScreen qw/:color :cursor :screen/;
+
+locate 1, 1; print "@ This is (1,1)", savepos;
+print locate(24,60), "@ This is (24,60)"; loadpos;
+print down(2), clline, "@ This is (3,16)\n";
+color 'black on white'; clline;
+print "This line is black on white.\n";
+print color 'reset'; print "This text is normal.\n";
+print colored ("This text is bold blue.\n", 'bold blue');
+print "This text is normal.\n";
+print colored ['bold blue'], "This text is bold blue.\n";
+print "This text is normal.\n";

bin/test-ansi-screen.pl

@@ -1,5 +1,26 @@
 # carton snapshot format: version 1.0
 DISTRIBUTIONS
+  Term-ANSIMenu-0.02
+    pathname: J/JA/JADEV/Term-ANSIMenu-0.02.tar.gz
+    provides:
+      Term::ANSIMenu 0.02
+    requirements:
+      Carp 0
+      ExtUtils::MakeMaker 0
+      Term::ReadKey 0
+  Term-ANSIScreen-1.50
+    pathname: A/AU/AUDREYT/Term-ANSIScreen-1.50.tar.gz
+    provides:
+      Term::ANSIScreen 1.50
+    requirements:
+      ExtUtils::MakeMaker 6.42
+      perl 5.005
+  TermReadKey-2.37
+    pathname: J/JS/JSTOWE/TermReadKey-2.37.tar.gz
+    provides:
+      Term::ReadKey 2.37
+    requirements:
+      ExtUtils::MakeMaker 6.58
   Win32-Console-ANSI-1.10
     pathname: J/JL/JLMOREL/Win32-Console-ANSI-1.10.tar.gz
     provides:

bin/test.pl

@@ -0,0 +1,2 @@
+perl -Ilocal\lib\perl5 bin\test-ansi-color.pl
+pause

cpanfile.snapshot

@@ -0,0 +1,2 @@
+perl -Ilocal\lib\perl5 bin\test-ansi-menu.pl
+pause

menu.bat

@@ -0,0 +1,2 @@
+perl -Ilocal\lib\perl5 bin\test-ansi-screen.pl
+pause