#!/usr/bin/perl -w
# -*- perl -*-

#
# Author: Slaven Rezic
#
# Copyright (C) 2005,2013 Slaven Rezic. All rights reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
#
# Mail: slaven@rezic.de
# WWW:  http://www.rezic.de/eserte/
#

use strict;
use FindBin;
use lib "$FindBin::RealBin/..";
use BBBikeYAML;

my $yamlfile = shift || die "usage: $0 yamlfile";
my $data = BBBikeYAML::LoadFile($yamlfile) or die "Can't parse data in $yamlfile";
print join("\n",
	   map {
	       "$_->{name}\t$_->{cat} $_->{coords}[0]";
	   } @$data
	  );
print "\n";

__END__
