File Coverage

blib/lib/DBIx/DataModel/Meta/Source/Join.pm

Criterion	Covered	Total	%
statement	17	19	89.4
branch			n/a
condition			n/a
subroutine	6	7	85.7
pod	0	3	0.0
total	23	29	79.3

package DBIx::DataModel::Meta::Source::Join;
use strict;
use warnings;
use Params::Validate qw/ARRAYREF/;

use parent "DBIx::DataModel::Meta::Source";

sub new {
  my $class = shift;

  # the real work occurs in parent class
  $class->_new_meta_source(

    # more spec for Params::Validate
    { sqla_join_args => {type => ARRAYREF} },

    # method to call in schema for building @ISA
    'join_parent',

    # original args
    @_
   );
}


sub db_from {
  my $self = shift;

  return [-join => @{$self->{sqla_join_args}}];
}

sub where {
  my $self = shift;
  return;
}

1;