File Coverage

lib/Contenticious/Generator.pm

Criterion	Covered	Total	%
statement	18	18	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod	5	5	100.0
total	29	29	100.0

package Contenticious::Generator;
use Mojo::Base 'Mojolicious::Command';

# store everything in files
sub init {
    my $self = shift;
    $self->generate_config_file;
    $self->generate_web_app;
    $self->generate_example_pages;
    $self->generate_public_directory;
}

sub generate_config_file {
    shift->render_to_rel_file(config => 'config');
}

sub generate_web_app {
    my $self = shift;
    $self->render_to_rel_file('webapp.pl' => 'webapp.pl');
    $self->chmod_rel_file('webapp.pl' => 0755);
}

sub generate_example_pages {
    my $self  = shift;
    my @pages = qw(index.md 01_Perldoc.md 02_About.md);
    $self->render_to_rel_file(("pages/$_") x 2) for @pages;
}

sub generate_public_directory {
    my $self   = shift;
    my @public = qw(styles.css);
    $self->render_to_rel_file(("public/$_") x 2) for @public;
}

1;

__DATA__