File Coverage

blib/lib/DBIx/Romani/Query/Select/Join.pm

Criterion	Covered	Total	%
statement	3	23	13.0
branch	0	2	0.0
condition			n/a
subroutine	1	6	16.6
pod	0	5	0.0
total	4	36	11.1

package DBIx::Romani::Query::Select::Join;

use strict;

sub new
{
	my $class = shift;
	my $args  = shift;

	my $type;
	my $table_name;
	my $on;

	if ( ref($args) eq 'HASH' )
	{
		$type       = $args->{type};
		$table_name = $args->{table};
		$on         = $args->{on};
	}
	else
	{
		$type       = $args;
		$table_name = shift;
		$on         = shift;
	}

	my $self = {
		type       => $type,
		table_name => $table_name,
		on         => $on,
	};

	bless  $self, $class;
	return $self;
}

sub get_type  { return shift->{type}; }
sub get_table { return shift->{table_name}; }
sub get_on    { return shift->{on}; }

sub clone
{
	my $self = shift;

	my $args = {
		type  => $self->get_type(),
		table => $self->get_table(),
		on    => $self->get_on()
	};

	return DBIx::Romani::Query::Select::Join->new($args);
}

1;