view release on metacpan or  search on metacpan

lib/UR/Object/Type/Initializer.pm  view on Meta::CPAN

1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
1318
1319
1320
1321
1322
1323
1324
        $meta_class_name->isa(__PACKAGE__)
    ) {
        warn "Bogus meta class $meta_class_name doesn't inherit from UR::Object::Type?"
    }
}
 
# only do this when the classes match
# when they do not match, the super-class has already called this by delegating to the correct subclass
$class_name::VERSION = 2.0; # No BumpVersion
 
my $self =  bless { id => $class_name, %$desc }, $meta_class_name;
 
$UR::Context::all_objects_loaded->{$meta_class_name}{$class_name} = $self;
my $full_name = join( '::', $class_name, '__meta__' );
Sub::Install::reinstall_sub({
    into => $class_name,
    as   => '__meta__',
    code => Sub::Name::subname $full_name => sub {$self},
});
 
return $self;