Move Attribute::Handlers from ext/ to dist/
[perl.git] / dist / 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) { }