File Coverage

blib/lib/Dallycot/AST/Uses.pm

Criterion	Covered	Total	%
statement	15	27	55.5
branch			n/a
condition			n/a
subroutine	5	11	45.4
pod	0	6	0.0
total	20	44	45.4

package Dallycot::AST::Uses;
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_string { return "" }

sub is_declarative { return 1 }

sub identifier { }

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

  return "uses <" . $self->[0]->value . ">";
}

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

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

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

  my $d = deferred;

  $engine->append_namespace_search_path( $self->[0]->value );

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

  return $d->promise;
}

1;