xmltv::configure::writer(3pm) [debian man page]

Configure::Writer(3pm)					User Contributed Perl Documentation				    Configure::Writer(3pm)

NAME

       XMLTV::Configure::Writer - Configuration file writer for XMLTV grabbers

DESCRIPTION

       Utility class that helps grabbers write configuration descriptions.

SYNOPSIS

	 use XMLTV::Configure::Writer;

	 my $result;
	 my $writer = new XMLTV::Writer::Configure( OUTPUT => $result,
						    encoding => 'iso-8859-1' );
	 $writer->start( { grabber => 'tv_grab_xxx' } );
	 $writer->write_string( {
	   id => 'username',
	   title => [ [ 'Username', 'en' ],
		      [ 'Anvaendarnamn', 'sv' ] ],
	   description => [ [ 'The username for logging in to DataDirect.', 'en' ],
			    [ 'Anvaendarnamn hos DataDirect', 'sv' ] ],
	   } );
	 $writer->start_selectone( {
	   id => 'lineup',
	   title => [ [ 'Lineup', 'en' ],
		      [ 'Programpaket', 'sv' ] ],
	   description => [ [ 'The lineup of channels for your region.', 'en' ],
			    [ 'Programpaket foer din region', 'sv' ] ],
	   } );

	 $writer->write_option( {
	   value=>'eastcoast',
	   text=> => [ [ 'East Coast', 'en' ],
		       [ 'Oestkusten', 'sv' ] ]
	 } );

	 $writer->write_option( {
	   value=>'westcoast',
	   text=> => [ [ 'West Coast', 'en' ],
		       [ 'Vaestkusten', 'sv' ] ]
	 } );

	 $writer->end_selectone();

	 $writer->end();

	 print $result;

EXPORTED FUNCTIONS

       None.

METHODS

       start()
	   Write the start of the <xmltvconfiguration> element.  Parameter is a hashref which gives the attributes of this element.

       write_string()
	   Write a <string> element. Parameter is a hashref with the data for the element:

	     $writer->write_string( {
	       id => 'username',
	       title => [ [ 'Username', 'en' ],
			  [ 'Anvaendarnamn', 'sv' ] ],
	       description => [ [ 'The username for logging in to DataDirect.', 'en' ],
				[ 'Anvaendarnamn hos DataDirect', 'sv' ] ],
	       default => "",
	       } );

perl v5.14.2							    2010-04-24						    Configure::Writer(3pm)

TAP::Parser::YAMLish::Writer(3pm)			 Perl Programmers Reference Guide			 TAP::Parser::YAMLish::Writer(3pm)

NAME

       TAP::Parser::YAMLish::Writer - Write YAMLish data

VERSION

       Version 3.26

SYNOPSIS

	   use TAP::Parser::YAMLish::Writer;

	   my $data = {
	       one => 1,
	       two => 2,
	       three => [ 1, 2, 3 ],
	   };

	   my $yw = TAP::Parser::YAMLish::Writer->new;

	   # Write to an array...
	   $yw->write( $data, @some_array );

	   # ...an open file handle...
	   $yw->write( $data, $some_file_handle );

	   # ...a string ...
	   $yw->write( $data, $some_string );

	   # ...or a closure
	   $yw->write( $data, sub {
	       my $line = shift;
	       print "$line
";
	   } );

DESCRIPTION

       Encodes a scalar, hash reference or array reference as YAMLish.

METHODS

   Class Methods
       "new"

	my $writer = TAP::Parser::YAMLish::Writer->new;

       The constructor "new" creates and returns an empty "TAP::Parser::YAMLish::Writer" object.

   Instance Methods
       "write"

	$writer->write($obj, $output );

       Encode a scalar, hash reference or array reference as YAML.

	   my $writer = sub {
	       my $line = shift;
	       print SOMEFILE "$line
";
	   };

	   my $data = {
	       one => 1,
	       two => 2,
	       three => [ 1, 2, 3 ],
	   };

	   my $yw = TAP::Parser::YAMLish::Writer->new;
	   $yw->write( $data, $writer );

       The  $output  argument may be:

       o   a reference to a scalar to append YAML to

       o   the handle of an open file

       o   a reference to an array into which YAML will be pushed

       o   a code reference

       If you supply a code reference the subroutine will be called once for each line of output with the line as its only argument. Passed lines
       will have no trailing newline.

AUTHOR

       Andy Armstrong, <andy@hexten.net>

SEE ALSO

       YAML::Tiny, YAML, YAML::Syck, Config::Tiny, CSS::Tiny, <http://use.perl.org/~Alias/journal/29427>

COPYRIGHT

       Copyright 2007-2011 Andy Armstrong.

       This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

       The full text of the license can be found in the LICENSE file included with this module.

perl v5.18.2							    2014-01-06					 TAP::Parser::YAMLish::Writer(3pm)