use strict;
use base 'Exporter';
our @EXPORT = (qw(run));
=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";
print {$out} $output_text;
close($out);
exit(0);
}
=head1 AUTHOR
=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;