mirror of https://github.com/sipwise/data-hal.git
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
37 lines
957 B
37 lines
957 B
package Data::HAL::URI::NamespaceMap;
|
|
use strictures;
|
|
use Data::HAL::URI qw();
|
|
use Moo; # extends
|
|
use URI::IRI qw();
|
|
use URI::Template qw();
|
|
use XML::RegExp qw();
|
|
extends 'URI::NamespaceMap';
|
|
|
|
our $VERSION = '1.000';
|
|
|
|
sub uri {
|
|
my ($self, $abbr) = @_;
|
|
if (my ($prefix, $reference) = $abbr =~ m/\A ($XML::RegExp::NCName) : (.*) \z/msx) {
|
|
if ($self->namespace_uri($prefix)) {
|
|
my $templated = URI::Template->new($self->namespace_uri($prefix)->as_string);
|
|
my $iri = URI::IRI->new($reference)->canonical->as_string;
|
|
$templated = $templated->process(rel => $iri);
|
|
my $haluri = Data::HAL::URI->new(_original => $abbr,uri => $templated,);
|
|
return $haluri;
|
|
}
|
|
}
|
|
return;
|
|
}
|
|
|
|
sub add_mapping {
|
|
my ($self,$name,$href) = @_;
|
|
my $map = $self->namespace_map;
|
|
if ($map) {
|
|
return $map->{$name} = $href;
|
|
} else {
|
|
return $self->SUPER::add_mapping($name,$href);
|
|
}
|
|
}
|
|
|
|
1;
|