File Coverage

lib/Haineko/CLI/Help.pm

Criterion	Covered	Total	%
statement	28	67	41.7
branch	12	24	50.0
condition	9	9	100.0
subroutine	5	6	83.3
pod	3	3	100.0
total	57	109	52.2

package Haineko::CLI::Help;
use parent 'Haineko::CLI';
use strict;
use warnings;

sub new {
    my $class = shift;
    my $argvs = { @_ };
    my $thing = __PACKAGE__->SUPER::new( %$argvs );

    $thing->{'params'} = {
        'option' => [],
        'example' => [],
        'subcommand' => [],
    };
    return $thing;
}

sub add {
    my $self = shift;
    my $argv = shift;
    my $type = shift;
    my $data = $self->{'params'};

    return $data unless defined $argv;
    return $data unless ref $argv;
    return $data unless ref $argv eq 'ARRAY';

    if( $type eq 'o' || $type eq 'option' ) {
        # Option
        $data = $self->{'params'}->{'option'};

    } elsif( $type eq 'e' || $type eq 'example' ) {
        # Example
        $data = $self->{'params'}->{'example'};

    } elsif( $type eq 's' || $type eq 'subcommand' ) {
        # Subcommand
        $data = $self->{'params'}->{'subcommand'};

    } else {
        return $data;
    }

    push @$data, @$argv;
    return $data;
}

sub mesg {
    my $self = shift;

    my $messageset = [];
    my $offsetsize = [];
    my $indentsize = 2;
    my $maxlength1 = 0;

    for my $e ( 'subcommand', 'option' ) {
        my @f = @{ $self->{'params'}->{ $e } };
        my $l = 0;

        while( my $r = shift @f ) {
            next unless scalar @f % 2;
            $l = length $r;
            $maxlength1 = $l > $maxlength1 ? $l : $maxlength1;
            push @$offsetsize, $l;
        }
    }

    printf( STDERR "%s SUBCOMMAND [OPTION]\n", $self->command );

    for my $e ( 'subcommand', 'option' ) {
        my @f = @{ $self->{'params'}->{ $e } };
        my $v = q();

        while( my $r = shift @f ) {

            if( scalar @f % 2 ) {
                $v = $r;
                next;
            }
            $v .= '%s : '.$r;
            push @$messageset, $v;
        }

        next unless scalar @$messageset;
        printf( STDERR "  %s:\n", uc $e ) if scalar @$messageset;
        while( my $r = shift @$messageset ) {
            my $o = shift @$offsetsize;
            printf( STDERR "  %s", ' ' x $indentsize );
            printf( STDERR $r, ' ' x ( $maxlength1 - $o + 2 ) );
            printf( STDERR "\n" );
        }
        printf( STDERR "\n" );
    }

    if( scalar @{ $self->{'params'}->{'example'} } ) {
        printf( STDERR "  FOR EXAMPLE:\n" );
        for my $e ( @{ $self->{'params'}->{'example'} } ) {
            printf( STDERR "    %s\n", $e );
        }
    }
}

1;
__END__