#!/usr/bin/perl

use strict;
use warnings;

use I2::Database;

$people = Set->new('person');
$people = Set->new('person', 'address'); # JOIN
$people = Set->new('person', ['address']); # LEFT JOIN

$people = Set->new('person' => {
                     cols => ['name', 'dob'],
                     distinct => 1},
                   'address');

while($person = $people->next) {
  print "Name: " . $people->name . "\n";
  print "Dump: " . $people->as_text . "\n";
  $addresses = $person->addresses;
  while($address = $addresses->next) {
    print "  " . $address->as_text . "\n";
  }
}