Configure::Writer(3) User Contributed Perl Documentation Configure::Writer(3)NAME
XMLTV::Configure::Writer
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.
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 => "",
} );
POD ERRORS
Hey! The above document had some coding errors, which are explained
below:
Around line 109:
'=item' outside of any '=over'
perl v5.10.1 2006-06-03 Configure::Writer(3)