File Coverage

blib/lib/App/Term2HTML.pm

Criterion	Covered	Total	%
statement	30	36	83.3
branch	6	8	75.0
condition			n/a
subroutine	8	11	72.7
pod	1	1	100.0
total	45	56	80.3

package App::Term2HTML;
use strict;
use warnings;
use Getopt::Long qw/GetOptionsFromArray/;
use IO::Interactive::Tiny;
use HTML::FromANSI::Tiny;

our $VERSION = '0.02';

sub run {
    my $self = shift;
    my @argv = @_;

    my $config = {};
    _merge_opt($config, @argv);

    _main($config);
}

sub _main {
    my $config = shift;

    my $h = HTML::FromANSI::Tiny->new(
        $config->{inline_style} ? (inline_style => 1) : (),
    );

    if ( !IO::Interactive::Tiny::is_interactive(*STDIN) ) {
        print join('', '', $h->css, '', "\n") if !$config->{inline_style};
        print "";
        while (my $stdin = ) {
            print $h->html($stdin);
        }
        print "\n";
    }
}

sub _merge_opt {
    my ($config, @argv) = @_;

    GetOptionsFromArray(
        \@argv,
        'is|inline-style' => \$config->{inline_style},
        'h|help'  => sub {
            _show_usage(1);
        },
        'v|version' => sub {
            print "$0 $VERSION\n";
            exit 1;
        },
    ) or _show_usage(2);
}

sub _show_usage {
    my $exitval = shift;

    require Pod::Usage;
    Pod::Usage::pod2usage(-exitval => $exitval);
}

1;

__END__