The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package DBIx::ActiveRecord::Arel::Join;
use strict;
use warnings;

sub new {
    my ($self, $join_type, $primary_key_column, $foreign_key_column) = @_;
    bless {type => $join_type, pk => $primary_key_column, fk => $foreign_key_column}, $self;
}

sub build {
    my $self = shift;
    $self->{type}.' '.$self->{fk}->table->table_with_alias.' ON '.$self->{fk}->name.' = '.$self->{pk}->name;
}

1;