#!/usr/bin/perl
use strict;
use Ikariam;
use Data::Dumper;

package main;

if($#ARGV != 0) {
    die("Usage: $0 nickname\n");
}

Ikariam::User->has_many(cities => 'Ikariam::Cities');
my ($u) = Ikariam::User->search('name' => $ARGV[0]);
if(defined($u)) {
    print Dumper($u->_data_hash);
    foreach my $c ($u->cities) {
        print Dumper($c->_data_hash);
    }
}