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