[p5sagit/p5-mst-13.2.git] / lib / 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
04070b92	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) { }