Move Attribute::Handlers from ext/ to dist/
[perl.git] / dist / Attribute-Handlers / demo / Descriptions.pm
1 package Descriptions;
2 $VERSION = '1.00';
3
4 use Attribute::Handlers;
5
6 my %name;
7
8 sub name {
9         return $name{$_[2]}||*{$_[1]}{NAME};
10 }
11
12 sub UNIVERSAL::Name :ATTR {
13         $name{$_[2]} = $_[4];
14 }
15
16 sub UNIVERSAL::Purpose :ATTR {
17         print STDERR "Purpose of ", &name, " is $_[4]\n";
18 }
19
20 sub UNIVERSAL::Unit :ATTR {
21         print STDERR &name, " measured in $_[4]\n";
22 }
23
24
25 1;