xmltv/lib/Configure Writer.pm,1.5,1.6

Update of /cvsroot/xmltv/xmltv/lib/Configure
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv17279

Modified Files:
	Writer.pm 
Log Message:
Add 'constant' option in write_string()


Index: Writer.pm
===================================================================
RCS file: /cvsroot/xmltv/xmltv/lib/Configure/Writer.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Writer.pm	24 Apr 2010 12:28:22 -0000	1.5
--- Writer.pm	8 Jan 2014 11:28:20 -0000	1.6
***************
*** 4,7 ****
--- 4,11 ----
  use warnings;
  
+ # use version number for feature detection:
+ # 0.005065 : can use 'constant' in write_string()
+ our $VERSION = 0.005065;
+ 
  BEGIN {
      use Exporter   ();
***************
*** 141,144 ****
--- 145,159 ----
      } );
  
+ 		
+ To add a constant use 'constant' key:
+ 	If constant value is empty then revert to 'ask' procedure.
+ 
+   $writer->write_string( {
+     id => 'version', 
+     title => [ [ 'Version number', 'en' ] ],
+     description => [ [ 'Automatically added version number - no user input', 'en' ] ],
+     constant => '123',
+     } );
+ 		
  =back
  
***************
*** 187,190 ****
--- 202,208 ----
      
      $h{default} = $default if defined $default;
+ 		
+     my $constant = delete $ch{constant};  
+     $h{constant} = $constant if defined $constant;
      
      $self->startTag( $tag, %h );


------------------------------------------------------------------------------
Rapidly troubleshoot problems before they affect your business. Most IT 
organizations don't have a clear picture of how application performance 
affects their revenue. With AppDynamics, you get 100% visibility into your 
Java,.NET, & PHP application. Start your 15-day FREE TRIAL of AppDynamics Pro!
http://pubads.g.doubleclick.net/gampad/clk?id=84349831&iu=/4140/ostg.clktrk