/usr/share/perl5/UR/Value/PerlReference.pm is in libur-perl 0.440-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 | package UR::Value::PerlReference;
use strict;
use warnings;
require UR;
our $VERSION = "0.44"; # UR $VERSION;
UR::Object::Type->define(
class_name => 'UR::Value::PerlReference',
is => ['UR::Value'],
);
my %underlying_data_types;
sub underlying_data_types {
my $class = shift;
my $class_name = ref($class) ? $class->class_name : $class;
unless (exists $underlying_data_types{$class_name}) {
my($base_type) = ($class_name =~ m/^UR::Value::(.*)/);
$underlying_data_types{$class_name} = [$base_type];
}
return @{$underlying_data_types{$class_name}};
}
1;
#$Header$
|