cpet/openbsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

have prepend respect the order of added columns

Browse Source 
add Sql::IsNull join constraint
This commit is contained in:
espie 2019-01-02 22:49:42 +00:00
parent 809af462ea
commit d3ed04ee84
1 changed files with 10 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
databases/sqlports/files/Sql.pm
View File

@ -1,5 +1,5 @@
#! /usr/bin/perl
# $OpenBSD: Sql.pm,v 1.19 2019/01/02 15:37:51 espie Exp $
# $OpenBSD: Sql.pm,v 1.20 2019/01/02 22:49:42 espie Exp $
#
# Copyright (c) 2018 Marc Espie <espie@openbsd.org>
#
@ -73,7 +73,7 @@ sub add_to
sub prepend
{
my $self = shift;
for my $o (@_) {
for my $o (reverse @_) {
$o->prepend_to($self);
}
return $self;
@ -744,4 +744,12 @@ sub equation
return $join->alias.".".$self->{a}."=".$self->{b};
}
package Sql::IsNull;
our @ISA = qw(Sql::Equal);
sub equation
{
my ($self, $join, $view) = @_;
return $join->alias.".".$self->{a}." IS NULL";
}
1;