Lines Matching refs:args
29 my ($package, %args) = @_;
31 if ($args{TIE}) {
32 my ($module, @opts) = @{$args{TIE}};
44 $args{LIFETIME} ||= 0;
45 $args{NUM_USES} ||= 0;
46 $args{C} = \%cache;
47 bless \%args => $package;
242 tie my %cache => 'MyExpirePolicy', args...;
245 This will invoke C<< MyExpirePolicy->TIEHASH(args) >>.
274 my ($package, %args) = @_;
275 my $cache = $args{HASH} || {};