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

package Cname;
our $Evil='A';

sub translator {
    my $str = shift;
    if ( $str eq 'EVIL' ) {
        (my $c=substr("A".$Evil,-1))++;
        my $r=$Evil;
        $Evil.=$c;
        return $r;
    }
    if ( $str eq 'EMPTY-STR') {
       return "";
    }
    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' ) {
	7	(my $c=substr("A".$Evil,-1))++;
	8	my $r=$Evil;
	9	$Evil.=$c;
	10	return $r;
	11	}
	12	if ( $str eq 'EMPTY-STR') {
	13	return "";
	14	}
	15	return $str;
	16	}
	17
	18	sub import {
	19	shift;
	20	$^H{charnames} = \&translator;
	21	}
	22	1;