File Coverage

blib/lib/Sentry/DSN.pm

Criterion	Covered	Total	%
statement	36	37	97.3
branch	3	4	75.0
condition	1	3	33.3
subroutine	7	7	100.0
pod	0	1	0.0
total	47	52	90.3

package Sentry::DSN;
use Mojo::Base -base, -signatures;

use Mojo::URL;

has _url       => undef;
has protocol   => sub ($self) { $self->_url->protocol };
has user       => sub ($self) { $self->_parse_user($self->_url->userinfo) };
has pass       => sub ($self) { $self->_parse_pass($self->_url->userinfo) };
has host       => sub ($self) { $self->_url->host };
has port       => sub ($self) { $self->_url->port };
has path       => sub ($self) { $self->_parse_path($self->_url->path) };
has project_id => sub ($self) { $self->_parse_project_id($self->_url->path) };
has host_port  => sub ($self) { $self->_url->host_port };

sub parse ($package, $url) {
  return $url && Sentry::DSN->new(_url => Mojo::URL->new($url));
}

sub _parse_user ($self, $auth) {
  my @info = split /:/, $auth;
  return $info[0];
}

sub _parse_pass ($self, $auth) {
  my @info = split /:/, $auth;
  return $info[1];
}

sub _parse_path ($self, $path) {
  if ($path =~ m{\A (.+) / \d+ \z}xms) {
    return $1;
  }

  return '';
}

sub _parse_project_id ($self, $path) {
  if ($path =~ m{(\d+) /? \z}xms) {
    return $1;
  }

  return undef;
}

1;