File Coverage

blib/lib/Snig.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	7	7	100.0
pod			n/a
total	27	27	100.0

use v5.40;
use feature 'class';
no warnings "experimental::class";

class Snig {
    our $VERSION = '1.001'; # VERSION
    # ABSTRACT: (Simple|Static|Small|S..) Image Gallery
    # PODNAME: Snig

    use Log::Any qw($log);
    use Path::Tiny qw(path);

    use Snig::Collection;
    use Snig::Image;

    field $name :reader :param;
    field $th_size :reader :param = 200;
    field $detail_size :reader :param = 1000;
    field $sort_by :reader :param = 'created'; # TODO
    field $input :reader :param;
    field $output :reader :param;
    field $force :reader :param;

    ADJUST {
        $input = path($input);
        $output = path($output);
        $output->mkdir;

        $force = { map { $_ => 1 } $force->@* };
    }

    method run {
        my $collection = Snig::Collection->new(input => $input, sort_by => $sort_by, name => $name);
        $collection->resize_images($output, $th_size, $detail_size, $force->{resize} || 0);
        $collection->write_html_pages($output);
        $collection->write_index($output, $force->{zip} || 0);
    }
}

__END__