File Coverage

blib/lib/Geoffrey/Changelog/None.pm

Criterion	Covered	Total	%
statement	37	38	97.3
branch	5	6	83.3
condition	2	4	50.0
subroutine	13	13	100.0
pod	6	6	100.0
total	63	67	94.0

package Geoffrey::Changelog::None;

use utf8;
use 5.016;
use strict;
use warnings;
use File::Slurp qw/write_file read_file/;
use Data::Dumper;

$Geoffrey::Changelog::None::VERSION = '0.000205';

use parent 'Geoffrey::Role::Changelog';

sub new {
    my $class = shift;
    my $self  = $class->SUPER::new(@_);
    $self->{ending}    //= '.pl';
    $self->{from_hash} //= 0;
    return bless $self, $class;
}

sub from_hash {
    my ( $self, $b_load_from_hash ) = @_;
    return $self->{from_hash} if !defined $b_load_from_hash;
    $self->{from_hash} = $b_load_from_hash;
    return $self;
}

sub tpl_main {
    return {
        templates => [
            {
                name    => 'tpl_std',
                columns => [ { name => 'id', type => 'integer', notnull => 1, primarykey => 1, default => 'inc', }, ],
            },
        ],
        prefix     => 'smpl',
        postfix    => 'end',
        changelogs => [ '01', ],
    };
}

sub tpl_sub {
    return [
        {
            id      => '001.01-maz',
            author  => 'Mario Zieschang',
            entries => [ { action => 'table.add', name => 'client', template => 'tpl_std', columns => [], }, ],
        }
    ];
}

sub load {
    my ( $self, $ur_file_structure ) = @_;
    return $self->from_hash ? $ur_file_structure : do( $ur_file_structure . $self->ending() );
}

sub write {
    my ( $self, $dir, $hr_data, $b_dump ) = @_;
    my $s_file = $dir . $self->ending;
    $hr_data = Data::Dumper->new( [$hr_data] )->Terse(1)->Deparse(1)->Sortkeys(1)->Dump;
    return $hr_data if $b_dump;
    return write_file( $s_file, $hr_data );
}

1;    # End of Geoffrey::Changelog

__END__