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

use Descriptions;

my $capacity : Name(capacity)
	     : Purpose(to store max storage capacity for files)
	     : Unit(Gb);

package Other;

sub foo : Purpose(to foo all data before barring it) { }
Commit	Line	Data
86530b38 AT	1	use Descriptions;
	2
	3	my $capacity : Name(capacity)
	4	: Purpose(to store max storage capacity for files)
	5	: Unit(Gb);
	6
	7	package Other;
	8
	9	sub foo : Purpose(to foo all data before barring it) { }