File Coverage

blib/lib/Test/Settings.pm

Criterion	Covered	Total	%
statement	62	64	96.8
branch	7	8	87.5
condition	17	22	77.2
subroutine	28	28	100.0
pod	21	21	100.0
total	135	143	94.4

package Test::Settings;
{
  $Test::Settings::VERSION = '0.003';
}

use strict;
use warnings;

use Exporter;
our @ISA = qw(Exporter);

our @EXPORT_OK = qw(
	want_smoke
	want_non_interactive
	want_extended
	want_author
	want_release
	want_all

	enable_smoke
	enable_non_interactive
	enable_extended
	enable_author
	enable_release
	enable_all

	disable_smoke
	disable_non_interactive
	disable_release
	disable_extended
	disable_author
	disable_release
	disable_all

	current_settings
	current_settings_env
	current_settings_env_all
);

our %EXPORT_TAGS = (
	'all' => \@EXPORT_OK,
);

# Things we currently know about
my %flags = (
	want_smoke           => 'AUTOMATED_TESTING',
	want_non_interactive => 'NONINTERACTIVE_TESTING',
	want_extended        => 'EXTENDED_TESTING',
	want_author          => 'AUTHOR_TESTING',
	want_release         => 'RELEASE_TESTING',
);

sub _get_env_name {
	my ($flag) = @_;

	if ($flags{$flag}) {
		return $flags{$flag};
	} else {
		require Carp;
		Carp::croak("No such flag $flag\n");
	}
}

sub _get_flag {
	my ($flag) = @_;

	my $env_name = _get_env_name($flag);

	return $ENV{$env_name};
}

sub _set_flag {
	my ($flag) = @_;

	my $env_name = _get_env_name($flag);

	$ENV{$env_name} = 1;
}

sub _clear_flag {
	my ($flag) = @_;

	my $env_name = _get_env_name($flag);

	delete $ENV{$env_name};
}

sub want_smoke           { _get_flag('want_smoke')           }
sub want_non_interactive { _get_flag('want_non_interactive') }
sub want_extended        { _get_flag('want_extended')        }
sub want_author          { _get_flag('want_author')          }
sub want_release         { _get_flag('want_release')         }
sub want_all {
	return 1 if
	  want_smoke &&
	  want_non_interactive &&
	  want_extended &&
	  want_author &&
	  want_release
	;
}

sub enable_smoke           { _set_flag('want_smoke')           }
sub enable_non_interactive { _set_flag('want_non_interactive') }
sub enable_extended        { _set_flag('want_extended')        }
sub enable_author          { _set_flag('want_author')          }
sub enable_release         { _set_flag('want_release')         }
sub enable_all {
	enable_smoke;
	enable_non_interactive;
	enable_extended;
	enable_author;
	enable_release;
}

sub disable_smoke           { _clear_flag('want_smoke')           }
sub disable_non_interactive { _clear_flag('want_non_interactive') }
sub disable_extended        { _clear_flag('want_extended')        }
sub disable_author          { _clear_flag('want_author')          }
sub disable_release         { _clear_flag('want_release')         }
sub disable_all {
	disable_smoke;
	disable_non_interactive;
	disable_extended;
	disable_author;
	disable_release;
}

sub current_settings {
	my @values = (
		want_smoke() || '',
		want_non_interactive() || '',
		want_extended() || '',
		want_author() || '',
		want_release() || '',
	);

	return sprintf(<
want_smoke:           %s
want_non_interactive: %s
want_extended:        %s
want_author:          %s
want_release:         %s
EOF

}

sub current_settings_env {
	my $output = '';

	for my $flag (sort keys %flags) {
		my $env_name = _get_env_name($flag);

		if (my $f = _get_flag($flag)) {
			$output .= sprintf("%s=1\n", $env_name);
		}
	}

	return $output;
}

sub current_settings_env_all {
	my $output = '';

	for my $flag (sort keys %flags) {
		my $env_name = _get_env_name($flag);

		if (my $f = _get_flag($flag)) {
			$output .= sprintf("%s=1\n", $env_name);
		} else {
			$output .= sprintf("%s=0\n", $env_name);
		}
	}

	return $output;
}

1;
__END__