Searched refs:Selfish (Results 1 - 2 of 2) sorted by relevance

/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Attribute/Handlers/demo/
H A Ddemo_cycle.pl1 package Selfish; package
16 use Attribute::Handlers autotieref => { Selfish => Selfish };
18 my $next : Selfish("me");
21 my $last : Selfish("you","them","who?");
24 my $other : Selfish(["you","them","who?"]);
/opensolaris-onvv-gate/usr/src/cmd/perl/5.8.4/distrib/lib/Attribute/
H A DHandlers.pm622 use Attribute::Handlers autotieref => { Selfish => Tie::Selfish };
623 my $var : Selfish(@args);
627 tie my $var, 'Tie::Selfish', @args;
631 use Attribute::Handlers autotieref => { Selfish => Tie::Selfish };
632 my $var : Selfish(@args);
637 tie my $var, 'Tie::Selfish', \$var, @args;

Completed in 101 milliseconds