File Coverage

blib/lib/PayProp/API/Public/Client/Role/Attribute/Domain.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

package PayProp::API::Public::Client::Role::Attribute::Domain;

use strict;
use warnings;

use Mouse::Role;


has domain => (
	is => 'ro',
	isa => 'Str',
	required => 1,
);

has scheme => (
	is => 'ro',
	isa => 'Str',
	lazy => 1,
	default => sub { 'https' },
);

has abs_domain => (
	is => 'ro',
	isa => 'Str',
	lazy => 1,
	default => sub {
		my ( $self ) = @_;

		my $scheme = $self->scheme;
		my $domain = $self->domain;

		$scheme =~ s{://}{}g;
		$domain =~ s{/*$}{}g;
		$domain =~ s{^https?://}{}g;

		my $abs_domain = $scheme . '://' . $domain;
		chomp $abs_domain;

		return $abs_domain;
	},
);

1;