/usr/share/perl5/Tangram/Lazy/BackRef.pm is in libtangram-perl 2.12-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 | package Tangram::Lazy::BackRef;
use vars qw(@ISA);
@ISA = qw( Tangram::Lazy::Ref );
sub FETCH
{
my $self = shift;
my ($storage, $id, $member, $refid, $class, $field) = @$self;
my $obj = $storage->{objects}{$id};
my $owner = $storage->remote($class);
my ($refobj) = $storage->select($owner, $owner->{$field}->includes($obj));
# my $refobj = $storage->load($refid);
untie $obj->{$member};
$obj->{$member} = $refobj; # weak
return $refobj;
}
1;
|