Skip to content

Instantly share code, notes, and snippets.

@berick berick/foo.pl
Created Nov 4, 2016

Embed
What would you like to do?
use OpenSRF::Utils::JSON;
my $j = {
select => {acqlid => ['id']},
from => {
jub => {
acqlid => {
join => {
acqcr => {
type => 'left',
}
}
}
}
},
where => {
'-or' => [
{'+acqlid' => {cancel_reason => undef}},
{'+acqcr' => {keep_debits => 't'}}
]
},
limit => 1
};
print OpenSRF::Utils::JSON->perl2JSON($j);
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.