/usr/local/CPAN/UR/UR/Value.pm

• package UR::Value
  • _load
• EOF

package UR::Value;

use strict;
use warnings;

require UR;

UR::Object::Type->define(
    class_name => 'UR::Value',
    is => 'UR::Object',
);

sub _load {
    my $class = shift;    
    my $rule = shift;
        
    # See if the requested object is loaded.
    my @loaded = $UR::Context::current->get_objects_for_class_and_rule($class,$rule,0);
    $class->context_return(@loaded) if @loaded;

    # Auto generate the object on the fly.
    unless (defined $rule->value_for_id) {
        $DB::single = 1;
        die "No id specified for loading members of an infinite set ($class)!"
    }
    my $obj = $class->_create_object($rule);
    
    my $class_meta = $class->__meta__;
    if (my $method_name = $class_meta->sub_classification_method_name) {
        my($rule, %extra) = UR::BoolExpr->resolve_normalized($class, $rule);
        my $sub_class_name = $obj->$method_name;
        if ($sub_class_name ne $class) {
            # delegate to the sub-class to create the object
            $obj->_delete_object();
            $obj = $sub_class_name->_create_object($rule);
            $obj->__signal_change__("load");
            return $obj;
        }
        # fall through if the class names match
    }
    
    $obj->__signal_change__("load");
    return $obj;
}

1;