Cross Reference:
xref
: /
illumos-gate
/
usr
/
src
/
cmd
/
perl
/
5.8.4
/
distrib
/
lib
/
Attribute
/
Handlers
/
demo
/
Descriptions.pm
Home
History
Annotate
Line#
Navigate
Download
Search
only in
./
Descriptions.pm revision 7c478bd95313f5f23a4c958a745db2134aa03244
package
Descriptions
;
$
VERSION
=
'1.00'
;
use
Attribute
::
Handlers
;
my
%
name
;
sub
name
{
return
$
name
{$_[
2
]}||*{$_[
1
]}{
NAME
};
}
sub
UNIVERSAL
::
Name
:
ATTR
{
$
name
{$_[
2
]} = $_[
4
];
}
sub
UNIVERSAL
::
Purpose
:
ATTR
{
print
STDERR
"Purpose of "
, &
name
,
" is $_[4]\n"
;
}
sub
UNIVERSAL
::
Unit
:
ATTR
{
print
STDERR
&
name
,
" measured in $_[4]\n"
;
}
1
;