File Coverage

blib/lib/Parser/FIT/Simple.pm

Criterion	Covered	Total	%
statement	24	24	100.0
branch	2	2	100.0
condition			n/a
subroutine	6	6	100.0
pod	0	2	0.0
total	32	34	94.1

package Parser::FIT::Simple;

use strict;
use warnings;

use Parser::FIT;

sub new {
    my $class = shift;

    my $self = {};

    bless($self, $class);

    return $self;
}

sub parse {
    my $self = shift;
    my $file = shift;

    my $result = {};

    my $parser = Parser::FIT->new(on => {
        _any => sub {
            my ($msgType, $msg) = (shift, shift);
            if(!exists $result->{$msgType}) {
                $result->{$msgType} = [];
            }

            push(@{$result->{$msgType}}, $msg);
        }
    });

    $parser->parse($file);

    return $result;
}

1;

__END__