File Coverage

blib/lib/HSTS/Preloaded.pm

Criterion	Covered	Total	%
statement	27	52	51.9
branch	2	8	25.0
condition			n/a
subroutine	8	13	61.5
pod	3	3	100.0
total	40	76	52.6

package HSTS::Preloaded;
{
  $HSTS::Preloaded::VERSION = '1.0.0';
}

# ABSTRACT: Inspect Chrome's HSTS preloaded list



use strict;
use warnings FATAL => 'all';
use utf8;
use open qw(:std :utf8);

use Carp;
use HTTP::Tiny;
use JSON::PP;



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

    croak "You should use new() without params" if @params;

    my $self = {};

    bless $self, $class;

    $self->{_data} = $self->_get_data_with_hsts_preloaded_list();

    # to speed up method host_is_in_hsts_preloaded_list()
    $self->{_hosts} = { map { $_->{name} => 1 } @{$self->{_data}->{entries}} };

    return $self;
}


sub host_is_in_hsts_preloaded_list {
    my ($self, $host) = @_;

    croak "Host is not defined" if not defined $host;

    return !!$self->{_hosts}->{$host};
}


sub get_all_hsts_preloaded_list_data {
    my ($self) = @_;

    return $self->{_data};
}


sub _get_data_with_hsts_preloaded_list {
    my ($self) = @_;

    my $url = 'https://git.chromium.org/gitweb/?p=chromium/src/net.git;a=blob_plain;f=http/transport_security_state_static.json;hb=HEAD';

    my $content = $self->_get_content_from_url( $url );
    my $json = $self->_get_data_without_comments( $content );
    my $data = decode_json $json;

    return $data;
}

sub _get_data_without_comments {
    my ($self, $data) = @_;

    my $output;
    foreach my $line (split /\n/, $data) {
        if ($line !~ m{^\s*//}) {
            $output .= "$line\n";
        }
    }

    return $output;
}

sub _get_content_from_url {
    my ($self, $url) = @_;

    my $response = HTTP::Tiny->new->get($url);

    if ($response->{status} eq '200') {
        return $response->{content};
    } else {
        croak "Error. Can't get url '$url'. Got http status $response->{status}";
    }
}

1;

__END__