File Coverage

blib/lib/Protocol/FIX/TagsAccessor.pm

Criterion	Covered	Total	%
statement	15	15	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod	2	2	100.0
total	21	21	100.0

package Protocol::FIX::TagsAccessor;

use strict;
use warnings;

our $VERSION = '0.08';    ## VERSION

=head1 NAME

Protocol::FIX::TagsAccessor - access to tags of deserialized FIX messages

=cut

=head1 METHODS

=head3 new

    new($class, $tag_pairs)

Creates new TagsAccessor (performed by Parser). Not for direct usage
by end-users.

=cut

sub new {
    my ($class, $tag_pairs) = @_;
    my %by_name;
    for (my $idx = 0; $idx < @$tag_pairs; $idx += 2) {
        my $composite = $tag_pairs->[$idx];
        # value is either value (i.e. string) or another TagAccessor
        my $value = $tag_pairs->[$idx + 1];
        $by_name{$composite->{name}} = $value;
    }
    return bless \%by_name, $class;
}

=head3 value

    value($self, $name)

Returns value. Please, refer to L

=cut

sub value {
    my ($self, $name) = @_;
    return $self->{$name};
}

1;