lib/Attribute/Handlers/demo/demo4.pl

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