File Coverage

blib/lib/Dallycot/AST/XmlnsDef.pm

Criterion	Covered	Total	%
statement	15	31	48.3
branch			n/a
condition			n/a
subroutine	5	13	38.4
pod	0	8	0.0
total	20	52	38.4

package Dallycot::AST::XmlnsDef;
our $AUTHORITY = 'cpan:JSMITH';

# ABSTRACT: A no-op placeholder

use strict;
use warnings;

use utf8;
use parent 'Dallycot::AST';

use Promises qw(deferred);

sub to_json {
}

sub to_string { return "" }

sub is_declarative { return 1 }

sub identifier { }

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

  my ( $prefix, $uri ) = @$self;

  return "ns:$prefix := <" . $uri->value . ">";
}

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

  return $self->[0];
}

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

  return $self->[1]->value;
}

sub execute {
  my ( $self, $engine ) = @_;

  my $d = deferred;

  $engine->add_namespace( $self->[0], $self->[1]->value );

  $d->resolve( $self->[1] );

  return $d->promise;
}

1;