File Coverage

blib/lib/Getopt/Long/Negate/ID.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	32	32	100.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	68	68	100.0

package Getopt::Long::Negate::ID;

our $DATE = '2016-08-07'; # DATE
our $VERSION = '0.001'; # VERSION

use 5.010001;
use strict;
use warnings;

use Exporter qw(import);
our @EXPORT_OK = qw(negations_for_option);

sub negations_for_option {
    my $word = shift;

    if    ($word =~ /\Atak[_-](.+)/  ) { return ("$1") }
    elsif ($word =~ /\Atidak[_-](.+)/) { return ("$1") }
    elsif ($word =~ /\Abukan[_-](.+)/) { return ("$1") }

    elsif ($word =~ /\Adengan([_-].+)/) { return ("tanpa$1") }
    elsif ($word =~ /\Atanpa([_-].+)/)  { return ("dengan$1") }

    elsif ($word =~ /\Aadalah([_-].+)/) { return ("bukan$1") }
    elsif ($word =~ /\Aialah([_-].+)/)  { return ("bukan$1") }

    elsif ($word =~ /\Amatikan([_-].+)/)  { return ("hidupkan$1") }
    elsif ($word =~ /\Apadamkan([_-].+)/) { return ("nyalakan$1") }
    elsif ($word =~ /\Ahidupkan([_-].+)/) { return ("matikan$1") }
    elsif ($word =~ /\Anyalakan([_-].+)/) { return ("padamkan$1") }

    elsif ($word =~ /\Aizinkan([_-].+)/)     { return ("larang$1") }
    elsif ($word =~ /\Aijinkan([_-].+)/)     { return ("larang$1") }
    elsif ($word =~ /\Abolehkan([_-].+)/)    { return ("larang$1") }
    elsif ($word =~ /\Aperbolehkan([_-].+)/) { return ("larang$1") }
    elsif ($word =~ /\Alarang([_-].+)/)      { return ("izinkan$1") }

    else {
        # default
        return ("tak-$word");
    }
}

1;
# ABSTRACT: Better negation of boolean option names (Indonesian)

__END__