Lines Matching refs:obj
49 my $obj = shift;
62 $obj = ref($obj) || $obj;
83 'userFile' => $userf}, $obj);
92 my $obj = shift;
94 my $file = $obj->{'attrFile'};
117 my $classFilter = $obj->{'classFilter'};
165 $obj->{'kernelDefault'} = $1;
170 $obj->{'userDefault'} = $1;
198 if ($obj->{'debug'}) {
205 $callName = $obj->filterCallName($label,
209 if ($obj->filterLabel($label)) {
263 $callName = $obj->filterCallName($label, $callName);
265 if ($obj->filterLabel($label)) {
272 print STDERR "found $count audit attribute entries\n" if ($obj->{'debug'});
274 return ($obj->{'attr'} = \%attr, \%token, \%skipClass, \%noteAlias);
283 my $obj = shift;
286 my $file = $obj->{'eventFile'};
293 unless (defined $obj->{'class'} && (scalar keys %{$obj->{'class'}} > 1)) {
294 $obj->readClass();
298 my $classFilter = $obj->{'classFilter'};
301 push @classFilterMasks, $obj->{'class'}{$_};
324 if ($obj->{'debug'}) {
329 next unless ($obj->filterLabel($label));
333 $mask |= $obj->{'class'}{$_};
344 if ($obj->{'idFilter'}) {
345 next unless ($obj->{'idFilter'} == $id);
353 print STDERR "found $count audit events\n" if ($obj->{'debug'});
355 return ($obj->{'event'} = \%event);
362 my $obj = shift;
365 my $file = $obj->{'classFile'};
382 print STDERR "found $count audit classes\n" if ($obj->{'debug'});
384 return ($obj->{'class'} = \%class);
388 my $obj = shift;
391 my $eventFilter = $obj->{'eventFilter'};
403 my $obj = shift;
422 my $obj = shift;
427 my $file = $obj->{'controlFile'};
436 my %class = $obj->{'class'};
437 my @paths = $obj->{'paths'};
458 $obj->{'havePath'} = 1;
466 my $obj = shift;
468 $obj->readControl() unless ($obj->{'havePath'});
470 return ($obj->{'paths'});
477 my $obj = shift;
482 my $file = $obj->{'userFile'};
498 my %class = $obj->{'class'};
548 my $obj = shift;
559 my %attr = %{$obj->{'attr'}};
560 my %event = %{$obj->{'event'}};
579 if ($obj->{'debug'});