File Coverage

blib/lib/MongoDBx/Tiny/Relation.pm

Criterion	Covered	Total	%
statement	12	19	63.1
branch	0	2	0.0
condition			n/a
subroutine	4	6	66.6
pod	1	1	100.0
total	17	28	60.7

package MongoDBx::Tiny::Relation;
use strict;
use warnings;

=head1 NAME

MongoDBx::Tiny::Relation - define relation

=cut

use Carp qw(carp confess);
our @ISA    = qw/Exporter/;
our @EXPORT = qw/RELATION_DEFAULT/;

{
    no warnings qw(once);
    *RELATION_DEFAULT = \&RELATION_BY;
}

=head1 EXPORT

=head2 RELATION_BY

  RELATION 'related_collection', RELATION_BY('method','related_field','field');
  RELATION 'bar', RELATION_BY('single','foo_id','id');

=cut

sub RELATION_BY {
    my ($meth,$field_name,$val_name) = @_;
    confess "RELATION_BY: invalid args"  if scalar @_ != 3;

    return sub {
	my $self   = shift;
	my $c_name = shift; # relation
	my $tiny = $self->tiny;
	$tiny->$meth($c_name,{ $field_name => $self->$val_name() });
    }
}


1;
__END__