File Coverage

blib/lib/DBomb/Query/RightJoin.pm
Criterion Covered Total %
statement 13 13 100.0
branch n/a
condition n/a
subroutine 4 4 100.0
pod 0 1 0.0
total 17 18 94.4


line stmt bran cond sub pod time code
1             package DBomb::Query::RightJoin;
2              
3             =head1 NAME
4              
5             DBomb::Query::RightJoin - Abstracts a RIGHT OUTER JOIN
6              
7             =head1 SYNOPSIS
8              
9             =cut
10              
11 12     12   66 use strict;
  12         23  
  12         407  
12 12     12   107 use warnings;
  12         28  
  12         601  
13             our $VERSION = '$Revision: 1.3 $';
14              
15 12     12   60 use base qw(DBomb::Query::Join);
  12         24  
  12         1490  
16              
17             sub init {
18 1     1 0 10 my $self = shift;
19 1         14 $self->SUPER::init(@_);
20 1         28 $self->type('RIGHT');
21 1         27 return $self;
22             }
23              
24              
25             1;
26             __END__