[GT] SVN Commit r575 - in trunk/GT: . DB Indicators

[GeniusTrader SVN <raphael AT geniustrader.org>]

Author: thomas
Date: 2008-03-19 19:24:16 +0100 (Wed, 19 Mar 2008)
New Revision: 575

Modified:
   trunk/GT/Analyzers.pm
   trunk/GT/DB/genericdbi.pm
   trunk/GT/Indicators/MAMA.pm
   trunk/GT/Indicators/Test.pm
   trunk/GT/Tools.pm
Log:
Corrected pod syntax to allow pod2latex generation.

Modified: trunk/GT/Analyzers.pm
===================================================================
--- trunk/GT/Analyzers.pm	2008-03-19 07:00:22 UTC (rev 574)
+++ trunk/GT/Analyzers.pm	2008-03-19 18:24:16 UTC (rev 575)
@@ -95,6 +95,8 @@
 
 Default method that does nothing.
 
+=back
+
 =cut
 
 sub initialize { 1; }

Modified: trunk/GT/DB/genericdbi.pm
===================================================================
--- trunk/GT/DB/genericdbi.pm	2008-03-19 07:00:22 UTC (rev 574)
+++ trunk/GT/DB/genericdbi.pm	2008-03-19 18:24:16 UTC (rev 575)
@@ -61,6 +61,7 @@
 Example:
 
 	SELECT name FROM stockinfo WHERE symbol = '$code';
+
 =back
 
 =head2 Functions
@@ -159,6 +160,8 @@
 
 Returns the name of the stock designated by $code.
 
+=back
+
 =cut
 sub get_db_name {
     my ($self, $code) = @_;
@@ -172,9 +175,4 @@
     return $res->[0];
 }
 
-=pod
-
-=back
-
-=cut
-1;
\ No newline at end of file
+1;

Modified: trunk/GT/Indicators/MAMA.pm
===================================================================
--- trunk/GT/Indicators/MAMA.pm	2008-03-19 07:00:22 UTC (rev 574)
+++ trunk/GT/Indicators/MAMA.pm	2008-03-19 18:24:16 UTC (rev 575)
@@ -33,6 +33,8 @@
 
 =item Period (default 20)
 
+=back
+
 =head2 Creation
 
  GT::Indicators::MAMA->new()

Modified: trunk/GT/Indicators/Test.pm
===================================================================
--- trunk/GT/Indicators/Test.pm	2008-03-19 07:00:22 UTC (rev 574)
+++ trunk/GT/Indicators/Test.pm	2008-03-19 18:24:16 UTC (rev 575)
@@ -18,10 +18,12 @@
 @NAMES = ("Test[#1,#2,#3,#4]","CM[#1]");
 @DEFAULT_ARGS = (5, 3, 3, "EMA", "Generic::MinInPeriod", "{I:Prices CLOSE}" );
 
-=pod
+=head1 NAME
 
-=item Instructions:
+GT::Indicators::Test - Indicator to test embedding of indicators
 
+=head1 DESCRIPTION
+
 This indicator functions as a test rig to ensure that another indicator
 is robust in the presence of complex embedding into other indicators.
 

Modified: trunk/GT/Tools.pm
===================================================================
--- trunk/GT/Tools.pm	2008-03-19 07:00:22 UTC (rev 574)
+++ trunk/GT/Tools.pm	2008-03-19 18:24:16 UTC (rev 575)
@@ -120,8 +120,6 @@
 
 =head2 generic
 
-=back
-
 It provides helper functions to manage arguments in "Generic" objects.
 You can import those functions with use GT::Tools qw(:generic) :
 
@@ -132,6 +130,8 @@
 Returns the number associated to the first the object described
 by the arguments. 
 
+=back
+
 =cut
 sub extract_object_number {
     my ($name) = shift;
@@ -558,6 +558,8 @@
 
 =head2 this is a ras hack version of GT/Tools.pm
 
+=over
+
 =item C<< parse_date_str ( \$date_string, \$err_msg ) >>
 
  Returns 1 if \$date_string is valid parsable date, zero (or null) otherwise