gnu/usr.bin/perl/dist/Attribute-Handlers/demo/demo4.pl


1
2
3
4
5
6
7
8
9

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) { }