File Coverage

blib/lib/Farly.pm

Criterion	Covered	Total	%
statement	51	52	98.0
branch	2	4	50.0
condition			n/a
subroutine	12	12	100.0
pod	2	3	66.6
total	67	71	94.3

package Farly;

use 5.008008;
use strict;
use warnings;
use Carp;
use IO::File;
use File::Spec;
use Log::Any qw($log);
use Farly::Director;
use Farly::Object;
require Time::HiRes;

our $VERSION = '0.26';

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

    my $self = { DIRECTOR => Farly::Director->new(), };
    bless $self, $class;

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

    return $self;
}

sub director {
    return $_[0]->{DIRECTOR};
}

sub process {
    my ( $self, $type, $file_name ) = @_;

    croak "$file_name is not a file" unless ( -f $file_name );

    my $location      = "Farly/$type/Builder.pm";
    my $builder_class = 'Farly::'.$type.'::Builder';

    require $location;

    my $builder = $builder_class->new();

    my $file = IO::File->new($file_name);

    $self->director()->set_file($file);
    $self->director()->set_builder($builder);

    my $start = [ Time::HiRes::gettimeofday() ];

    my $container;

    eval { $container = $self->director()->run(); };
    if ($@) {
        die "Import of $file_name failed\n", $@, "\n";
    }

    my $elapsed = Time::HiRes::tv_interval($start);

    $log->info("parse time: $elapsed seconds");

    $log->info( "imported " . $container->size() . " objects" );

    return $container;
}

1;
__END__