File Coverage

blib/lib/HTTP/UserAgentClientHints/BrandVersion.pm

Criterion	Covered	Total	%
statement	25	25	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod	3	3	100.0
total	35	35	100.0

package HTTP::UserAgentClientHints::BrandVersion;
use strict;
use warnings;
use HTTP::UserAgentClientHints::Util;

sub new {
    my ($class, $raw_brand_version) = @_;

    bless {
        _parsed_brand_version => $class->_parse_brand_version($raw_brand_version),
    }, $class;
}

sub brands {
    my $self = shift;

    return [keys %{$self->{_parsed_brand_version}}];
}

sub brand_version {
    my $self = shift;

    return {%{$self->{_parsed_brand_version}}};
}

sub _parse_brand_version {
    my ($self, $raw_brand_version) = @_;

    my @pairs = split /,\s*/, $raw_brand_version;

    my %brand_version;
    for my $pair (@pairs) {
        my ($brand, $version) = map { HTTP::UserAgentClientHints::Util->strip_quote($_) } split /;\s*v=/, $pair;
        $brand_version{$brand} = $version;
    }

    return \%brand_version;
}

1;

__END__