[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / 5.8.0 / Attribute / Handlers / demo / demo_range.pl

package UNIVERSAL;
use Attribute::Handlers;
use Tie::RangeHash;

sub Ranged : ATTR(HASH) {
	my ($package, $symbol, $referent, $attr, $data) = @_;
	tie %$referent, 'Tie::RangeHash';
}

package main;

my %next : Ranged;

$next{'cat,dog'} = "animal";
$next{'fish,fowl'} = "meal";
$next{'heaven,hell'} = "reward";

while (<>) {
	chomp;
	print $next{$_}||"???", "\n";
}
Commit	Line	Data
86530b38 AT	1	package UNIVERSAL;
	2	use Attribute::Handlers;
	3	use Tie::RangeHash;
	4
	5	sub Ranged : ATTR(HASH) {
	6	my ($package, $symbol, $referent, $attr, $data) = @_;
	7	tie %$referent, 'Tie::RangeHash';
	8	}
	9
	10	package main;
	11
	12	my %next : Ranged;
	13
	14	$next{'cat,dog'} = "animal";
	15	$next{'fish,fowl'} = "meal";
	16	$next{'heaven,hell'} = "reward";
	17
	18	while (<>) {
	19	chomp;
	20	print $next{$_}\|\|"???", "\n";
	21	}