Plan 9 from Bell Labs’s /usr/web/sources/contrib/gabidiaz/root/sys/src/cmd/perl/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) { }