[OpenSPARC-T2-DV] / tools / perl-5.8.0 / lib / 5.8.0 / Attribute / Handlers / demo / demo_phases.pl

#! /usr/local/bin/perl -w

use Attribute::Handlers;
use Data::Dumper 'Dumper';

sub UNIVERSAL::Beginner : ATTR(SCALAR,BEGIN,END)
	{ print STDERR "Beginner: ", Dumper \@_}

sub UNIVERSAL::Checker : ATTR(CHECK,SCALAR)
	{ print STDERR "Checker: ", Dumper \@_}

sub UNIVERSAL::Initer : ATTR(SCALAR,INIT)
	{ print STDERR "Initer: ", Dumper \@_}

package Other;

my $x :Initer(1) :Checker(2) :Beginner(3);
my $y :Initer(4) :Checker(5) :Beginner(6);
Commit	Line	Data
86530b38 AT	1	#! /usr/local/bin/perl -w
	2
	3	use Attribute::Handlers;
	4	use Data::Dumper 'Dumper';
	5
	6	sub UNIVERSAL::Beginner : ATTR(SCALAR,BEGIN,END)
	7	{ print STDERR "Beginner: ", Dumper \@_}
	8
	9	sub UNIVERSAL::Checker : ATTR(CHECK,SCALAR)
	10	{ print STDERR "Checker: ", Dumper \@_}
	11
	12	sub UNIVERSAL::Initer : ATTR(SCALAR,INIT)
	13	{ print STDERR "Initer: ", Dumper \@_}
	14
	15	package Other;
	16
	17	my $x :Initer(1) :Checker(2) :Beginner(3);
	18	my $y :Initer(4) :Checker(5) :Beginner(6);