#!/usr/bin/perl
use warnings;
use strict;
use Carp qw(croak);
use Readonly;

Readonly my $space => q{ };    #a single space
croak " Usage pperldoc <option> docname " unless @ARGV == 1 or @ARGV == 2;

# initialized the value of $ARGV[0] and [1], in-case no value was given
$ARGV[0] //= $space;
$ARGV[1] //= $space;

my $first_arugment  = $ARGV[0];
my $second_arugment = $ARGV[1];

if ( $first_arugment =~ m/^-/ ) {    # check flag for first arugment
    if ( $second_arugment ne $space ) {

        # check second arugment were other character
        if ( $second_arugment !~ m/[a-z]+?/i ) {
            my $special_name = transform_doc_name($second_arugment);
            system(
qq{ perldoc -o html -d ${special_name}.html $first_arugment $second_arugment}
            );

        }
        else {
            system(
qq{ perldoc -o html -d ${second_arugment}.html $first_arugment $second_arugment}
            );
        }
    }
    else { croak "Please specify docname" }
}
elsif ( $first_arugment !~ m/^-/ ) {    # check flag for first arugment
        # check first arugment if module has double full colon
    if ( $first_arugment =~ m/.+?::.+?/ ) {
        ( my $doc_new_name = $first_arugment ) =~ y/::/_/s;
        system(qq{ perldoc -o html -d ${doc_new_name}.html $first_arugment});
    }
    else {
        system(qq{ perldoc -o html -d ${first_arugment}.html $first_arugment});
    }
}

sub transform_doc_name {
    my ($doc) = @_;
    $doc = 'perl_lingo';
    return $doc;
}