File Coverage

blib/lib/Getopt/Kingpin/Flag.pm

Criterion	Covered	Total	%
statement	38	38	100.0
branch	18	18	100.0
condition	6	6	100.0
subroutine	7	7	100.0
pod	3	3	100.0
total	72	72	100.0

package Getopt::Kingpin::Flag;
use 5.008001;
use strict;
use warnings;
use Getopt::Kingpin::Base -base;

our $VERSION = "0.10";

has _placeholder => undef;
has _hidden      => 0;

sub placeholder {
    my $self = shift;
    my $placeholder = shift;

    $self->_placeholder($placeholder);

    return $self;
}

sub hidden {
    my $self = shift;

    $self->_hidden(1);

    return $self;
}

sub help_str {
    my $self = shift;

    my $ret = ["", "", ""];

    if (defined $self->short_name) {
        $ret->[0] = sprintf "-%s", $self->short_name;
    }

    my $default = $self->_default;
    my $printable_default = defined $default;
    if (ref $default) {
        $printable_default = Scalar::Util::blessed($default) && overload::Method($default, q[""]);
    }

    if ($self->type eq "Bool") {
        $ret->[1] = sprintf "--%s", $self->name;
    } elsif ($self->is_hash) {
        if (defined $self->_placeholder and $self->_placeholder =~ /=/) {
            $ret->[1] = sprintf '--%s %s', $self->name, $self->_placeholder;
        } elsif (defined $self->_placeholder) {
            $ret->[1] = sprintf '--%s KEY=%s', $self->name, $self->_placeholder;
        } else {
            $ret->[1] = sprintf "--%s KEY=VALUE", $self->name;
        }
    } else {
        if (defined $self->_placeholder) {
            $ret->[1] = sprintf '--%s=%s', $self->name, $self->_placeholder;
        } elsif ($printable_default) {
            $ret->[1] = sprintf '--%s="%s"', $self->name, $default;
        } else {
            $ret->[1] = sprintf "--%s=%s", $self->name, uc $self->name;
        }
    }

    $ret->[2] = defined $self->description ? $self->description : "";

    return $ret;
}

1;
__END__