/usr/share/perl5/UR/Object/Value.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 31 | package UR::Object::Value;
use strict;
use warnings;
use UR;
our $VERSION = "0.44"; # UR $VERSION;
class UR::Object::Value {
is => 'UR::Value',
is_abstract => 1,
subclassify_by => 'entity_class_name',
type_has => [
entity_class_name => { is => 'Text' },
],
has => [
rule => { is => 'UR::BoolExpr', id_by => 'id' },
entity_class_name => { via => 'rule', to => 'subject_class_name' },
],
doc => 'an unordered group of distinct UR::Objects'
};
sub AUTOSUB {
my ($method,$class) = @_;
my $entity_class_name = $class;
$entity_class_name =~ s/::Value$//g;
return unless $entity_class_name;
my $code = $entity_class_name->can($method);
return $code if $code;
}
1;
|