File Coverage

lib/Hyper/Developer/Generator/Control/Flow.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	16	16	100.0

package Hyper::Developer::Generator::Control::Flow;

use strict;
use warnings;
use version; our $VERSION = qv('0.01');

use base qw(Hyper::Developer::Generator::Control::ContainerFlow);
use Class::Std;
use Hyper::Config::Reader::Flow;

sub BUILD {
    my $self = shift;

    $self->set_type('package');
    $self->set_sub_path('/Control/Flow/');
    $self->set_suffix('pm');

    return $self;
}

sub create {
    my $self     = shift;
    my $usecase  = $self->get_usecase();
    my $service  = $self->get_service();

    my $config = Hyper::Config::Reader::Flow->new({
        base_path  => $self->get_base_path(),
        config_for => $self->get_namespace() . "::Control::Flow::${service}::F${usecase}",
    });

    my $data_ref = $self->_get_data_ref_of_steps(
        $config->get_steps()
    );

    my $attr_ref = $config->get_attributes();

    if ( %{$data_ref} ) {
        $self->SUPER::create({
            data     => {
                attributes => $attr_ref,
                step_data  => $data_ref,
            },
            name     => "_F$usecase",
            template => "Generator/Control/_flow.tpl",
            force    => 1,
        });
        $self->SUPER::create({
            data     => {
                attributes => $attr_ref,
                step_data  => $data_ref,
            },
            name     => "F$usecase",
            template => "Generator/Control/flow.tpl",
        });
    }

    return $self;
}

1;

__END__