[perl5.git] / t / lib / Cname.pm

package Cname;
our $Evil='A';

sub translator {
    my $str = shift;
    if ( $str eq 'EVIL' ) {
        # Returns A first time, AB second, ABC third ... A-ZA the 27th time.
        (my $c=substr("A".$Evil,-1))++;
        my $r=$Evil;
        $Evil.=$c;
        return $r;
    }
    if ( $str eq 'EMPTY-STR') {
       return "";
    }
    if ( $str eq 'NULL') {
        return "\0";
    }
    if ( $str eq 'LONG-STR') {
        return 'A' x 255;
    }
    # Should exceed limit for regex \N bytes in a sequence.  Anyway it will if
    # UCHAR_MAX is 255.
    if ( $str eq 'TOO-LONG-STR') {
       return 'A' x 256;
    }
    return $str;
}

sub import {
    shift;
    $^H{charnames} = \&translator;
}
1;
Commit	Line	Data
fc8cd66c YO	1	package Cname;
	2	our $Evil='A';
	3
	4	sub translator {
	5	my $str = shift;
	6	if ( $str eq 'EVIL' ) {
ff3f963a	7	# Returns A first time, AB second, ABC third ... A-ZA the 27th time.
fc8cd66c YO	8	(my $c=substr("A".$Evil,-1))++;
	9	my $r=$Evil;
	10	$Evil.=$c;
	11	return $r;
	12	}
	13	if ( $str eq 'EMPTY-STR') {
	14	return "";
	15	}
ff3f963a KW	16	if ( $str eq 'NULL') {
	17	return "\0";
	18	}
	19	if ( $str eq 'LONG-STR') {
	20	return 'A' x 255;
	21	}
	22	# Should exceed limit for regex \N bytes in a sequence. Anyway it will if
	23	# UCHAR_MAX is 255.
	24	if ( $str eq 'TOO-LONG-STR') {
	25	return 'A' x 256;
	26	}
fc8cd66c YO	27	return $str;
	28	}
	29
	30	sub import {
	31	shift;
	32	$^H{charnames} = \&translator;
	33	}
	34	1;