#!/usr/bin/perl
#===============================================================================
#
#         FILE: pod6docbook
#
#  DESCRIPTION:  save Perl pod as docbook
#       AUTHOR:  Aliaksandr P. Zahatski ,  <zahatski@gmail.com>
#===============================================================================
#$Id: pod6docbook 573 2009-07-11 12:54:28Z zag $
use strict;
use warnings;
use Getopt::Long;
use Pod::Usage;
use Perl6::Pod::To;
use Perl6::Pod::To::DocBook;
my ( $help, $man, $doctype, $add_head);
my %opt =
  ( help => \$help, man => \$man, );
GetOptions( \%opt, 'help|?', 'man', 'doctype|t=s'=> \$doctype, 'add_head|ah'=>\$add_head )
  or pod2usage(2);
pod2usage(1) if $help;
pod2usage( -exitstatus => 0, -verbose => 2 ) if $man;

my %args = (header=>$add_head, doctype=>$doctype);

my $infile = shift;
my $in_fd;
if ($infile) {
    $in_fd = new IO::File:: "< $infile" or die "$infile: $!";
}
else {
    $in_fd = \*STDIN;
}

my $p = Perl6::Pod::To::to_abstract( 'Perl6::Pod::To::DocBook', \*STDOUT, %args);
$p->parse($in_fd);

exit;

=head1 NAME

    pod6docbook  - convert Perl pod to DocBook

=head1 SYNOPSIS

  pod6docbook < somefile.pod > somefile.xml
  pod6docbook somefile.pod  > somefile.xml


   options:
    -doctype|t - set docbook type ( ie chapter, article, book ...). Default chapter;
    -add_head|ah - If this option is set , pod6docbook will emit a DOCTYPE as the first line of output.
    -help  - print help message
    -man   - print man page

=head1 OPTIONS

=over 8

=item B<-help>

Print a brief help message and exits

=item B<-man>

Prints manual page and exits

=back

=head1 DESCRIPTION

  B<pod6docbook>  - convert Perl pod to DocBook

=head1 EXAMPLE

  pod6docbook < somefile.pod > somefile.xml


=head1 AUTHOR

Zahatski Aliaksandr, E<lt>zahatski@gmail.comE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright 2009 by Zahatski Aliaksandr

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

=cut

