File Coverage

blib/lib/Geoffrey/Changelog/Yaml.pm

Criterion	Covered	Total	%
statement	17	31	54.8
branch	0	2	0.0
condition	0	2	0.0
subroutine	6	12	50.0
pod	6	6	100.0
total	29	53	54.7

package Geoffrey::Changelog::Yaml;

use utf8;
use 5.016;
use strict;
use warnings;
use YAML::XS;

$Geoffrey::Changelog::Yaml::VERSION = '0.000100';

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

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

sub tpl_main {
    my $s_message = <<'END_MESSAGE';

---
templates:
    - name: tpl_std
      columns:
      - name: id
        type: integer
        notnull: 1
        primarykey: 1
        default: autoincrement

prefix: smpl
postfix: end

changelogs:
  - "01"
END_MESSAGE

    return $s_message;
}

sub tpl_sub {
    my $s_message = <<'END_MESSAGE';
- id: 001.01-maz
  author: "Mario Zieschang"
  entries:
    - action: table.add
      name: 'client'
      template: 'tpl_std'
END_MESSAGE
    return $s_message;
}

sub extension { return $_[0]->ending; }

sub load {
    my ( $self, $s_file ) = @_;
    return YAML::XS::LoadFile( $s_file . $self->extension );
}

sub write {
    my ( $self, $dir, $data, $dump ) = @_;
    return YAML::XS::Dump($data) if $dump;
    return YAML::XS::DumpFile( $dir . $self->extension, $data );
}

1;    # End of Geoffrey::Changelog

__END__