——use
strict;
use
warnings;
our
@EXPORT
= (
qw(run)
);
use
Getopt::Long;
=head1 NAME
XML::Grammar::Screenplay::App::ToHTML - module implementing
a command line application to convert a Screenplay XML file to HTML
=head1 FUNCTIONS
=head2 run()
Call with no arguments to run the application from the commandline.
=cut
sub
run
{
my
$output_filename
;
GetOptions(
"output|o=s"
=> \
$output_filename
,
);
if
(!
defined
(
$output_filename
))
{
die
"Output filename not specified! Use the -o|--output flag!"
;
}
my
$converter
= XML::Grammar::Screenplay::ToHTML->new();
my
$output_text
=
$converter
->translate_to_html({
source
=> {
file
=>
shift
(
@ARGV
), },
output
=>
"string"
,
}
);
open
my
$out
,
">"
,
$output_filename
;
binmode
$out
,
":utf8"
;
{
$out
}
$output_text
;
close
(
$out
);
exit
(0);
}
=head1 AUTHOR
Shlomi Fish, L<http://www.shlomifish.org/>.
=head1 BUGS
Please report any bugs or feature requests to
C<bug-xml-grammar-screenplay at rt.cpan.org>, or through the web interface at
I will be notified, and then you'll automatically be notified of progress on
your bug as I make changes.
=head1 ACKNOWLEDGEMENTS
=head1 COPYRIGHT & LICENSE
Copyright 2007 Shlomi Fish, all rights reserved.
This program is released under the following license: MIT X11.
=cut
1;