tools/pod2xhtml.pl

   1 #!/usr/bin/env perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use File::Spec;
   7 use Pod::Xhtml;
   8
   9 die "Usage: pod2xhtml filename\n" if $#ARGV < 0;
  10
  11 my $parser       = Pod::Xhtml->new(FragmentOnly => 1);
  12
  13 my $file_name    = $ARGV[0];
  14 $file_name       =~ s/(\.pm|\.pod)$/.html-inc/i;
  15 $parser->parse_from_file($ARGV[0], $file_name);