File Coverage

blib/lib/Farly/ASA/Builder.pm

Criterion	Covered	Total	%
statement	67	71	94.3
branch	2	4	50.0
condition			n/a
subroutine	17	17	100.0
pod	0	3	0.0
total	86	95	90.5

package Farly::ASA::Builder;

use 5.008008;
use strict;
use warnings;
use Carp;
use Log::Any qw($log);
use Farly::Builder;
use Farly::ASA::Filter;
use Farly::ASA::Parser;
use Farly::ASA::Annotator;
use Farly::ASA::Rewriter;
use Farly::ASA::Generator;
use Farly::ASA::PortFormatter;
use Farly::ASA::ProtocolFormatter;
use Farly::ASA::ICMPFormatter;

our $VERSION = '0.26';
our @ISA     = 'Farly::Builder';

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

    #call the constructor of the parent class
    my $self = $class->SUPER::new();
    bless $self, $class;

    $log->info("$self NEW");

    return $self;
}

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

    my $filter    = Farly::ASA::Filter->new();
    my $parser    = Farly::ASA::Parser->new();
    my $annotator = Farly::ASA::Annotator->new();
    my $rewriter  = Farly::ASA::Rewriter->new();
    my $generator = Farly::ASA::Generator->new();

    $filter->set_file( $self->file() );

    my @preprocessed_file = $filter->run();

    confess "configuration not recognized"
      unless ( scalar(@preprocessed_file) > 0 );

    my $parse_tree;

    foreach my $line (@preprocessed_file) {

        eval {

            #get the parse tree for the current line
            $parse_tree = $parser->parse($line);

            #turn the tokens into objects
            $annotator->visit($parse_tree);

            #rewrite the parse tree into an abstract syntax tree (AST)
            my $ast = $rewriter->rewrite($parse_tree);

            #convert the AST into an Farly::Object object
            #which is stored in the generator's container object
            $generator->visit($ast);
        };
        if ($@) {
            my $err = $@;
            $log->fatal( $self->file() . "\n: $line \n $err\n" );
            chomp($line);
            die "Problem at line :\n$line\nError : $@";
        }

    }

    $self->{CONTAINER} = $generator->container();

    return;
}

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

1;
__END__