File Coverage

blib/lib/Mandel/Relationship.pm

Criterion	Covered	Total	%
statement	6	6	100.0
branch			n/a
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	8	8	100.0

package   Mandel::Relationship;

=head1 NAME

Mandel::Relationship - Base class for relationships

=head1 DESCRIPTION

L is the base class for the following classes:

=over 4

=item * L

=item * L

=item * L

=back

=cut

use Mojo::Base -base;
use Mojo::Loader 'load_class';

=head1 ATTRIBUTES

=head2 accessor

Base name of accessor(s) created.

=head2 foreign_field

The name of the field in the foreign class which hold the "_id".

=head2 document_class

Holds the classname of the document class that holds all the accessors and
methods created.

=head2 related_class

Holds the related document class name.

=cut

has accessor       => '';
has document_class => '';
has foreign_field  => sub { shift->document_class->model->name };
has related_class  => '';

# is this a bad memory leak? $model => $rel_obj => $_related_model
# i don't think so, since the number of objects are constant
has _related_model => sub {
  my $self = shift;
  my $e    = load_class($self->related_class);
  die $e if ref $e;
  $self->related_class->model;
};

=head1 SEE ALSO

L, L, L

=head1 AUTHOR

Jan Henning Thorsen - C

=cut

1;