File Coverage

bin/pod2asciidoctor

Criterion	Covered	Total	%
statement	36	38	94.7
branch	3	6	50.0
condition			n/a
subroutine	9	9	100.0
pod			n/a
total	48	53	90.5

#! /usr/bin/env perl
#
# Short description for pod2asciidoctor.pl
#
# Version 0.0.1
# Copyright (C) 2023 Shlomi Fish < https://www.shlomifish.org/ >
#
# Licensed under the terms of the MIT license.

use strict;
use warnings;
use 5.014;
use autodie;

use Carp         qw/ confess /;
use Getopt::Long qw/ GetOptions /;
use Path::Tiny   qw/ cwd path tempdir tempfile /;

use Pod::AsciiDoctor ();

sub run
{
    my $output_fn;

    GetOptions( "output|o=s" => \$output_fn, )
        or die "error in cmdline args: $!";

    if ( !defined($output_fn) )
    {
        die "Output filename not specified! Use the -o|--output flag!";
    }
    my $adoc        = Pod::AsciiDoctor->new();
    my $in_filename = shift(@ARGV);
    my $in_fh       = path( $in_filename, );
    my $in          = $in_fh->openr_utf8();
    $adoc->parse_from_filehandle($in);
    my $USE_STDOUT = ( $output_fn eq '-' );
    if ($USE_STDOUT)
    {
        print $adoc->adoc();
    }
    else
    {
        path($output_fn)->spew_utf8( $adoc->adoc() );
    }

    exit(0);
}

run();

1;

__END__