Oryx::DBM::Parent - DBM implementation of parent relationships

Oryx documentation Contained in the Oryx distribution.

Index

Code Index:

NAME

Top

Oryx::DBM::Parent - DBM implementation of parent relationships

SYNOPSIS

Top

See Oryx::Parent.

DESCRIPTION

Top

This class contains the implementation used whenever one Oryx metaclass subclasses another over an Oryx::DBM storage connection.

SEE ALSO

Top

Oryx, Oryx::DBM, Oryx::Parent

AUTHOR

Top

Richard Hundt <richard NO SPAM AT protea-systems.com>

COPYRIGHT AND LICENSE

Top

Copyright (c) 2005 Richard Hundt.

This library is free software and may be used under the same terms as Perl itself.

Oryx documentation Contained in the Oryx distribution. 
package Oryx::DBM::Parent;

use Scalar::Util qw(blessed);

use base qw(Oryx::Parent);

sub create {
    my ($self, $param) = @_;
    my $parent = $self->class->create($param);
    $param->{_parent_ids} = { } unless defined $param->{_parent_ids};
    $param->{_parent_ids}->{$self->class} = $parent->id;
}

sub retrieve { }

sub update {
    my ($self, $query, $obj) = @_;
    my $parent = $obj->PARENT($self->class);
    return unless (defined $parent and blessed($parent)); # abstract (no attributes)
    $parent->$_($obj->$_) foreach keys %{$self->class->attributes};
    $parent->update;
}

sub delete {
    my ($self, $query, $obj) = @_;
    my $parent = $obj->PARENT($self->class);
    $parent->delete() if $parent;
}

sub search { }

sub construct {
    my ($self, $obj) = @_;
    my $parent = $self->class->retrieve($obj->{_parent_ids}->{$self->class});

    # copy the attribute values from the parent to the child instance
    $obj->$_($parent->$_) foreach keys %{$self->class->attributes};
    $obj->PARENT($self->class, $parent);
}

1;
__END__