Move Attribute::Handlers from ext/ to dist/
[perl.git] / dist / Attribute-Handlers / demo / Demo.pm
1 $DB::single = 1;
2
3 package Demo;
4 $VERSION = '1.00';
5 use Attribute::Handlers;
6 no warnings 'redefine';
7
8 sub Demo : ATTR(SCALAR) {
9         my ($package, $symbol, $referent, $attr, $data, $phase) = @_;
10         $data = '<undef>' unless defined $data;
11         print STDERR 'Scalar $', *{$symbol}{NAME},
12                      " ($referent) was ascribed ${attr}\n",
13                      "with data ($data)\nin phase $phase\n";
14 };
15
16 sub This : ATTR(SCALAR) {
17         print STDERR "This at ",
18                      join(":", map { defined() ? $_ : "" } caller(1)),
19                      "\n";
20 }
21
22 sub Demo : ATTR(HASH) {
23         my ($package, $symbol, $referent, $attr, $data) = @_;
24         $data = '<undef>' unless defined $data;
25         print STDERR 'Hash %', *{$symbol}{NAME},
26                      " ($referent) was ascribed ${attr} with data ($data)\n";
27 };
28
29 sub Demo : ATTR(CODE) {
30         my ($package, $symbol, $referent, $attr, $data) = @_;
31         $data = '<undef>' unless defined $data;
32         print STDERR 'Sub &', *{$symbol}{NAME},
33                      " ($referent) was ascribed ${attr} with data ($data)\n";
34 };
35
36 sub Multi : ATTR {
37         my ($package, $symbol, $referent, $attr, $data) = @_;
38         $data = '<undef>' unless defined $data;
39         print STDERR ref($referent), ' ', *{$symbol}{NAME},
40                      " ($referent) was ascribed ${attr} with data ($data)\n";
41 };
42
43 sub ExplMulti : ATTR(ANY) {
44         my ($package, $symbol, $referent, $attr, $data) = @_;
45         $data = '<undef>' unless defined $data;
46         print STDERR ref($referent), ' ', *{$symbol}{NAME},
47                      " ($referent) was ascribed ${attr} with data ($data)\n";
48 };
49
50 1;