| line |
l |
!l&&r |
!l&&!r |
condition |
|
38
|
104 |
136 |
0 |
$self->{'_properties'} ||= do {
my $map = $self->_property_name_class_map;
my @all;
foreach my $property_name (sort keys %$map) {
my $class_names = $map->{$property_name};
my $class_name = $class_names->[0];
my $id = $class_name . "\t" . $property_name;
my $property_meta = 'UR::Object::Property'->get($id);
unless ($property_meta) {
Carp::confess("Failed to find property meta for $class_name $property_name?");
} ;
push @all, $property_meta;
} ;
\@all
} |
|
104
|
0 |
0 |
0 |
$self->{'_property_names'} ||= do {
my(@names) = sort(keys %{(shift())->_property_name_class_map;});
\@names
} |
|
114
|
368 |
214 |
0 |
$self->{'_property_name_class_map'} ||= do {
my(%map) = ();
foreach my $class_name ($self->class_name, $self->ancestry_class_names) {
my $class_meta = 'UR::Object::Type'->get($class_name);
if (my $has = $class_meta->{'has'}) {
foreach my $key (sort keys %$has) {
my $classes = ($map{$key} ||= []);
push @$classes, $class_name;
} ;
} ;
} ;
\%map
} |