File Coverage

lib/Contenticious/Generator.pm

Criterion	Covered	Total	%
statement	37	37	100.0
branch	5	8	62.5
condition			n/a
subroutine	10	10	100.0
pod	2	2	100.0
total	54	57	94.7

package Contenticious::Generator;
use Mojo::Base -base;

use File::Basename;
use File::Spec::Functions; # catdir, catfiles
use File::Share 'dist_dir';
use FindBin;
use File::Path 'make_path';
use File::Copy;

has share_directory     => dist_dir 'Contenticious';
has working_directory   => $FindBin::Bin;

has files => sub{[
    catfile(qw(config)),
    catfile(qw(webapp.pl)),
    catfile(qw(public styles.css)),
    catfile(qw(pages index.md)),
    catfile(qw(pages 01_Perldoc.md)),
    catfile(qw(pages 02_About.md)),
]};

has is_executable => sub {{
    catfile(qw(webapp.pl)) => 1,
}};

sub _file_location {
    my ($self, $filename) = @_;

    # check
    return unless grep {$_ eq $filename} @{$self->files};

    # concatenate
    return catfile $self->share_directory, $filename;
}

# store everything in files
sub generate {
    my $self = shift;
    $self->generate_file($_) for @{$self->files};
}

# store a an asset in a file
sub generate_file {
    my ($self, $filename) = @_;

    # check requested file name
    my $source = $self->_file_location($filename);
    die "Unknown file: '$filename'!\n" unless defined $source;

    # determine path
    my $target = catfile $self->working_directory, $filename;

    # create directory if neccessary
    my $target_dir = dirname $target;
    make_path $target_dir unless -d $target_dir;

    # dump file
    copy $source => $target;

    # chmod executable if neccessary
    chmod oct(755) => $target if $self->is_executable($filename);
}

1;

__END__