File Coverage

blib/lib/Gentoo/Dependency/AST/Node.pm

Criterion	Covered	Total	%
statement	28	38	73.6
branch			n/a
condition			n/a
subroutine	8	10	80.0
pod	6	6	100.0
total	42	54	77.7

use strict;
use warnings;

package Gentoo::Dependency::AST::Node;
BEGIN {
  $Gentoo::Dependency::AST::Node::AUTHORITY = 'cpan:KENTNL';
}
{
  $Gentoo::Dependency::AST::Node::VERSION = '0.001001';
}

# ABSTRACT: An Abstract Syntax Tree Node



use Class::Tiny {
  children => sub { [] }
};


sub add_dep {
  my ( $self, $state, $dep ) = @_;
  push @{ $self->children }, $dep;
  return;
}


sub enter_notuse_group {
  my ( $self, $state, $group ) = @_;
  push @{ $self->children }, $group;
  $state->_pushstack($group);
  return;
}


sub enter_use_group {
  my ( $self, $state, $group ) = @_;
  push @{ $self->children }, $group;
  $state->_pushstack($group);
  return;
}


sub enter_or_group {
  my ( $self, $state, $group ) = @_;
  push @{ $self->children }, $group;
  $state->_pushstack($group);
  return;
}


sub enter_and_group {
  my ( $self, $state, $group ) = @_;
  push @{ $self->children }, $group;
  $state->_pushstack($group);
  return;
}


sub exit_group {
  my ( $self, $state ) = @_;
  $state->_popstack;
  return;
}

1;

__END__