#!/usr/bin/perl
use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;
use Pod::FromActionscript qw(asdoc2pod);
my %opts = (
verbose => 0,
code => 0,
help => 0,
version => 0,
infile => "-",
outfile => "-",
);
Getopt::Long::Configure("bundling");
GetOptions("v|verbose" => \$opts{verbose},
"c|code" => \$opts{code},
"h|help" => \$opts{help},
"V|version" => \$opts{version},
) or pod2usage(1);
pod2usage(-exitstatus => 0, -verbose => 2) if ($opts{help});
print("$0 v$Pod::FromActionscript::VERSION\n"),exit(0) if ($opts{version});
# These args are only used above
delete $opts{help};
delete $opts{version};
$opts{infile} = shift if (@ARGV > 0);
$opts{outfile} = shift if (@ARGV > 0);
asdoc2pod(%opts);
__END__
=head1 NAME
asdoc2pod - Read an Actionscript file with Javadoc and output POD
=head1 SYNOPSIS
asdoc2pod [options] [infile.as [outfile.pod]]
Options:
-c --code output POD embedded in code instead of just POD
-v --verbose more diagnostic output
-h --help verbose help message
-V --version print CAM::PDF version
If the input or output files are omitted, STDIN and STDOUT are used,
respectively. Filenames of C<-> are interpreted as STDIN or STDOUT as
well.
=head1 DESCRIPTION
Read in an Actionscript file and parse it, searching for Javadoc-style
comments. If any are found, convert them to POD (Perl's Plain Old
Documentation format). The output is just the POD, unless the
C<--code> flag is used, in which case the original Actionscript is
output with the Javadoc converted to POD.
=head1 SEE ALSO
L<Pod::FromActionscript>
=head1 LICENSE
Copyright 2005 Clotho Advanced Media, Inc., <cpan@clotho.com>
This library is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
=head1 AUTHOR
Clotho Advanced Media Inc., I<cpan@clotho.com>
=cut