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


line stmt bran cond sub pod time code
1             package DBIx::DataModel::Meta::Source::Join;
2 18     18   133 use strict;
  18         39  
  18         567  
3 18     18   92 use warnings;
  18         39  
  18         546  
4 18     18   128 use Params::Validate qw/ARRAYREF/;
  18         34  
  18         976  
5              
6 18     18   118 use parent "DBIx::DataModel::Meta::Source";
  18         53  
  18         147  
7              
8             sub new {
9 29     29 0 81 my $class = shift;
10              
11             # the real work occurs in parent class
12 29         266 $class->_new_meta_source(
13              
14             # more spec for Params::Validate
15             { sqla_join_args => {type => ARRAYREF} },
16              
17             # method to call in schema for building @ISA
18             'join_parent',
19              
20             # original args
21             @_
22             );
23             }
24              
25              
26             sub db_from {
27 43     43 0 92 my $self = shift;
28              
29 43         176 return [-join => @{$self->{sqla_join_args}}];
  43         175  
30             }
31              
32             sub where {
33 0     0 0   my $self = shift;
34 0           return;
35             }
36              
37             1;