use strict;
use warnings;
use Test::More qw/ no_plan /;;
{
    my( $NL, $SKIP ) = optionize_nl_skip( { qw/ CHAR_NL NL CMD_SKIP SPACE / });
    is($NL,   "\n" );
    is($SKIP , "\33" ); ## Test::More printable bug
}


sub optionize_nl_skip{
	my( $static ) = @_;
	my ($NL,$SKIP) = ( $static->{NL}, $static->{SKIP} );
	if ($static->{CHAR_NL} eq "NL"){ 
		$NL = "\n";
	}elsif($static->{CHAR_NL} eq "CR"){
		$NL = "\r";
	}elsif($static->{CHAR_NL} eq "CRLF"){
		$NL = "\r\l";
	}elsif($static->{CHAR_NL} eq "HEXNL"){ ##still needs testing
		$NL = "";
	}
	if ($static->{CMD_SKIP} eq "SPACE"){
		$SKIP = "\032";
	}elsif($static->{CMD_SKIP} eq "NL"){
		$SKIP = $NL;
	}else{
		$SKIP = "$static->{CMD_SKIP}$NL";
	}
    return( $NL, $SKIP );
}