File Coverage

blib/lib/Getopt/Yath/Option/Auto.pm

Criterion	Covered	Total	%
statement	18	22	81.8
branch	0	4	0.0
condition			n/a
subroutine	10	11	90.9
pod	0	7	0.0
total	28	44	63.6

package Getopt::Yath::Option::Auto;
use strict;
use warnings;

our $VERSION = '2.000007';

use parent 'Getopt::Yath::Option::Scalar';
use Getopt::Yath::HashBase;

sub allows_default    { 1 }
sub allows_arg        { 1 }
sub requires_arg      { 0 }
sub allows_autofill   { 1 }
sub requires_autofill { 1 }

sub can_set_env   { 1 }

sub get_env_value {
    my $opt = shift;
    my ($var, $ref) = @_;

    return $$ref unless $var =~ m/^!/;
    return $ref ? 0 : 1;
}


1;

__END__