/usr/share/perl5/TheSchwartz/FuncMap.pm is in libtheschwartz-perl 1.07-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 | # $Id: FuncMap.pm 136 2008-02-23 01:28:13Z bchoate $
package TheSchwartz::FuncMap;
use strict;
use base qw( Data::ObjectDriver::BaseObject );
use Carp qw( croak );
__PACKAGE__->install_properties({
columns => [ qw( funcid funcname ) ],
datasource => 'funcmap',
primary_key => 'funcid',
});
sub create_or_find {
my $class = shift;
my($driver, $funcname) = @_;
## Attempt to select funcmap record by name. If successful, return
## object, otherwise proceed with insertion and return.
my ($map) = $driver->search('TheSchwartz::FuncMap' =>
{ funcname => $funcname }
);
return $map if $map;
## Attempt to insert a new funcmap row. Since the funcname column is
## UNIQUE, if the row already exists, an exception will be thrown.
$map = $class->new;
$map->funcname($funcname);
eval { $driver->insert($map) };
## If we got an exception, try to load the record with this funcname;
## in all likelihood, the exception was that the record was added by
## another process.
if (my $err = $@) {
($map) = $driver->search('TheSchwartz::FuncMap' =>
{ funcname => $funcname }
) or croak "Can't find or create funcname $funcname: $err";
}
return $map;
}
1;
|