/usr/share/perl5/UR/Object/Ghost.pm is in libur-perl 0.430-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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 | #####
#
# Support "Ghost" objects. These represent deleted items which are not saved.
# They are omitted from regular class lists.
#
#####
package UR::Object::Ghost;
use strict;
use warnings;
require UR;
our $VERSION = "0.43"; # UR $VERSION;
sub _init_subclass {
my $class_name = pop;
no strict;
no warnings;
my $live_class_name = $class_name;
$live_class_name =~ s/::Ghost$//;
*{$class_name ."\:\:class"} = sub { "$class_name" };
*{$class_name ."\:\:live_class"} = sub { "$live_class_name" };
}
sub create { Carp::croak('Cannot create() ghosts.') };
sub delete { Carp::croak('Cannot delete() ghosts.') };
sub _load {
shift->is_loaded(@_);
}
sub unload {
return;
}
sub __errors__ {
return; # Ghosts are always valid, don't check their properties
}
sub edit_class { undef }
sub ghost_class { undef }
sub is_ghost { return 1; }
sub live_class
{
my $class = $_[0]->class;
$class =~ s/::Ghost//;
return $class;
}
my @ghost_changes;
sub changed {
@ghost_changes = UR::Object::Tag->create ( type => 'changed', properties => ['id']) unless @ghost_changes;
return @ghost_changes;
}
sub AUTOSUB
{
# Delegate to the similar function on the regular class.
my ($func, $self) = @_;
my $live_class = $self->live_class;
return $live_class->can($func);
}
1;
=pod
=head1 NAME
UR::Object::Ghost - Abstract class for representing deleted objects not yet committed
=head1 SYNOPSIS
my $obj = Some::Class->get(1234);
$obj->some_method();
$obj->delete(); # $obj is now a UR::DeletedRef
$ghost = Some::Class::Ghost->get(1234);
$ghost->some_method; # Works
=head1 DESCRIPTION
Ghost objects are a bookkeeping entity for tracking objects which have been
loaded from an external data source, deleted within the application, and not
yet committed. This implies that they still exist in the external data
source. When the Context is committed, the existence of Ghost objects
triggers commands to the external data sources to also delete the object(s).
When objects are brought into the Context by querying a data source, they
are compared against any ghosts that may already exist, and matching objects
are not re-loaded or returned to the user from a call to get(). If the
user wants to get Ghost objects, they must call get() explicitly on the
Ghost class.
Each class in the system also has an associated Ghost class, the name of which
is formed by tacking '::Ghost' to the name of the regular class. Ghost
classes do not have ghosts themselves.
Instances of Ghosts are not instantiated with create() directly, they are
created as a concequence of deleting a regular object instance. A Ghost
can be turned back into a "live" object by re-creating it, or rolling back
the transaction it was deleted in.
=head1 DEPRECATED
Applications will not, and should not, normally interact with Ghosts. The
whole Ghost system is scheduled for elimination as we refactor the Context
and software transaction framework.
=head1 SEE ALSO
UR::Object, UR::Object::Type
=cut
|