#!/usr/bin/perl
###########################################
# fittest
# Mike Schilli, 2012 (m@perlmeister.com)
###########################################
use warnings;
use strict;
use Garmin::FIT;

my $fit = Garmin::FIT->new();
$fit->file( "354I2029.FIT" );
$fit->data_message_callback_by_name('', 
    \&dump_it);

$fit->open();
$fit->fetch_header();
1 while $fit->fetch();

###########################################
sub dump_it {
###########################################
  my ($self, $desc, $v) = @_;

  if( $desc->{message_name} ) {
    print "$desc->{message_name} ";
  } else {
    print "Unknown ";
  }

  print "($desc->{message_number}):\n";

  $self->print_all_fields($desc, $v, 
      indent => '  ');
}