Initial commit of OpenSPARC T2 design and verification files.

[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / 5.8.0 / 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) { }