File Coverage

blib/lib/Riji/CLI/NewEntry.pm

Criterion	Covered	Total	%
statement	39	40	97.5
branch	5	10	50.0
condition	4	9	44.4
subroutine	8	8	100.0
pod	0	1	0.0
total	56	68	82.3

package Riji::CLI::NewEntry;
use feature ':5.10';
use strict;
use warnings;

use IPC::Cmd ();
use Path::Tiny;
use Time::Piece;

use Riji;

sub run {
    my ($class, @argv) = @_;
    my $subtitle = shift @argv;
    die "subtitle: $subtitle is not valid\n" if $subtitle && $subtitle =~ /[^-_a-zA-Z0-9.]/;

    my $app = Riji->new;

    my $now = localtime;
    my $dir = $app->model('Blog')->entry_path;
    $dir->mkpath unless $dir->exists;
    my $date_str = $now->strftime('%Y-%m-%d');
    my $file_format = "$dir/$date_str-%s.md";
    my $file;
    if ($subtitle) {
        $file = path(sprintf $file_format, $subtitle);
    }
    else {
        my $seq = 1;
        $file = path(sprintf $file_format, sprintf('%02d', $seq++)) while !$file || -e $file;
    }

    $file->spew(<<'...') unless -e $file;
tags: blah
---
# title
...

    my $editor = $ENV{EDITOR};
       $editor = $editor && IPC::Cmd::can_run($editor);

    exec $editor, "$file" if $editor;
    say "$file is created. Edit it!";
}

1;