File Coverage

blib/lib/Farly/ASA/Generator.pm

Criterion	Covered	Total	%
statement	43	43	100.0
branch	3	4	75.0
condition			n/a
subroutine	9	9	100.0
pod	0	3	0.0
total	55	59	93.2

package Farly::ASA::Generator;

use 5.008008;
use strict;
use warnings;
use Carp;
use Scalar::Util qw(blessed);
use Log::Any qw($log);

our $VERSION = '0.26';

sub new {
    my ($class) = @_;

    my $self = {
        CONTAINER => Farly::Object::List->new(), # result
    };
    bless $self, $class;

    $log->info("$self new");
    $log->info( "$self CONTAINER is " . $self->container() );

    return $self;
}

sub container {
    return $_[0]->{CONTAINER};
}

sub visit {
    my ( $self, $node ) = @_;
    # $node isa reference to the root of the AST

    # the Farly translator parses one firewall object at a time
    my $object = Farly::Object->new();

    # the AST root node is the 'ENTRY'
    $object->set( 'ENTRY', Farly::Value::String->new( ref($node) ) );

    $log->debug( "ENTRY = " . ref($node) );

    # set s of explored vertices
    my %seen;

    #stack is all neighbors of s
    my @stack;
    push @stack, $node;

    my $key;

    while (@stack) {

        my $node = pop @stack;

        next if ( $seen{$node}++ );

        $log->debug( "ast node class = " . ref($node) );

        # continue exploring the AST
        foreach my $key ( keys %$node ) {

            my $next = $node->{$key};

            if ( $key eq '__VALUE__' ) {

                #then $next isa token
                $object->set( ref($node), $next );
                $log->debug( "set " . ref($node) . " = " . ref($next). " " . $next->as_string );
            }
            else {
                push @stack, $next;
            }
        }
    }

    $self->container->add($object);
}

1;
__END__