File Coverage

blib/lib/Rex/JobControl/Helper/Project/Formular.pm

Criterion	Covered	Total	%
statement	24	71	33.8
branch	0	6	0.0
condition	0	3	0.0
subroutine	8	23	34.7
pod	0	14	0.0
total	32	117	27.3

#
# (c) Jan Gehring
#
# vim: set ts=2 sw=2 tw=0:
# vim: set expandtab:

package Rex::JobControl::Helper::Project::Formular;
$Rex::JobControl::Helper::Project::Formular::VERSION = '0.6.0';
use strict;
use warnings;

use File::Spec;
use File::Path;
use YAML;
use Rex::JobControl::Helper::Chdir;
use Rex::JobControl::Helper::Project::Job;
use Data::Dumper;

sub new {
  my $that  = shift;
  my $proto = ref($that) || $that;
  my $self  = {@_};

  bless( $self, $proto );

  $self->load;

  return $self;
}

sub name        { (shift)->{formular_configuration}->{name} }
sub description { (shift)->{formular_configuration}->{description} }

sub job {
  my $self = shift;
  $self->project->get_job( $self->{formular_configuration}->{job} );
}
sub public { (shift)->{formular_configuration}->{public} ? "yes" : "no" }
sub servers   { (shift)->{formular_configuration}->{servers} }
sub project   { (shift)->{project} }
sub directory { (shift)->{directory} }

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

  if ( -f $self->_config_file() ) {
    $self->{formular_configuration} = YAML::LoadFile( $self->_config_file );

    my $steps_file = File::Spec->catfile(
      $self->project->project_path(), "formulars",
      $self->{directory},             "steps.yml"
    );

    $self->{steps} = YAML::LoadFile($steps_file);
  }
}

sub _config_file {
  my ($self) = @_;
  return File::Spec->catfile( $self->project->project_path(),
    "formulars", $self->{directory}, "formular.conf.yml" );
}

sub steps {
  my ($self) = @_;
  return $self->{steps}->{formulars};
}

sub formulars {
  my ($self) = @_;
  return $self->{steps}->{formulars};
}

sub create {
  my ( $self, %data ) = @_;

  my $form_path = File::Spec->catdir( $self->project->project_path,
    "formulars", $self->{directory} );

  $self->project->app->log->debug(
    "Creating new formular $self->{directory} in $form_path.");

  File::Path::make_path($form_path);

  my $steps = $data{steps};

  delete $data{directory};
  delete $data{steps};

  my $form_configuration = {%data};

  YAML::DumpFile( "$form_path/formular.conf.yml", $form_configuration );
  YAML::DumpFile( "$form_path/steps.yml",         $steps );
}

sub update {
  my ( $self, %data ) = @_;

  my $form_path = File::Spec->catdir( $self->project->project_path,
    "formulars", $self->{directory} );

  $self->project->app->log->debug(
    "Updating formular $self->{directory} in $form_path.");

  if ( exists $data{steps} ) {
    YAML::DumpFile( "$form_path/steps.yml", $data{steps} );
  }

  delete $data{directory};
  delete $data{steps};

  my $form_configuration = {%data};
  YAML::DumpFile( "$form_path/formular.conf.yml", $form_configuration );
}

sub remove {
  my ($self) = @_;
  my $formular_path = File::Spec->catdir( $self->project->project_path,
    "formulars", $self->{directory} );

  File::Path::remove_tree($formular_path);
}

1;