App-StaticImageGallery

 view release on metacpan or  search on metacpan

META.json  view on Meta::CPAN

   "prereqs" : {
      "configure" : {
         "requires" : {
            "ExtUtils::MakeMaker" : "6.31"
         }
      },
      "runtime" : {
         "requires" : {
            "Carp" : 0,
            "Class::MOP" : 0,
            "DateTime" : 0,
            "File::Basename" : 0,
            "File::Path" : 0,
            "Getopt::Lucid" : 0,
            "Imager" : 0,
            "MIME::Base64" : 0,
            "Path::Class" : 0,
            "Pod::Usage" : 0,
            "Template" : 0,
            "Template::Provider::FromDATA" : 0,
            "UNIVERSAL" : 0,

META.yml  view on Meta::CPAN

dynamic_config: 0
generated_by: 'Dist::Zilla version 4.200000, CPAN::Meta::Converter version 2.101670'
license: perl
meta-spec:
  url: http://module-build.sourceforge.net/META-spec-v1.4.html
  version: 1.4
name: App-StaticImageGallery
requires:
  Carp: 0
  Class::MOP: 0
  DateTime: 0
  File::Basename: 0
  File::Path: 0
  Getopt::Lucid: 0
  Imager: 0
  MIME::Base64: 0
  Path::Class: 0
  Pod::Usage: 0
  Template: 0
  Template::Provider::FromDATA: 0
  UNIVERSAL: 0

Makefile.PL  view on Meta::CPAN

  },
  'DISTNAME' => 'App-StaticImageGallery',
  'EXE_FILES' => [
    'bin/sig'
  ],
  'LICENSE' => 'perl',
  'NAME' => 'App::StaticImageGallery',
  'PREREQ_PM' => {
    'Carp' => '0',
    'Class::MOP' => '0',
    'DateTime' => '0',
    'File::Basename' => '0',
    'File::Path' => '0',
    'Getopt::Lucid' => '0',
    'Imager' => '0',
    'MIME::Base64' => '0',
    'Path::Class' => '0',
    'Pod::Usage' => '0',
    'Template' => '0',
    'Template::Provider::FromDATA' => '0',
    'UNIVERSAL' => '0',

lib/App/StaticImageGallery/Base/Any.pm  view on Meta::CPAN

package    # hidden from pause
  App::StaticImageGallery::Base::Any;

use Carp;
use DateTime;
sub new {
    my $class = shift;
    my $self  = {};

    my %args = @_;

    if ( defined $args{ctx} and ref( $args{ctx} ) eq 'App::StaticImageGallery' ) {
        $self->{_ctx} = $args{ctx};
    } else {
        croak "Missing ctx or wrong type: " . ref $args{ctx};

lib/App/StaticImageGallery/Base/NeedDir.pm  view on Meta::CPAN

package    # hidden from pause
  App::StaticImageGallery::Base::NeedDir;

use Carp;
use DateTime;
use parent 'App::StaticImageGallery::Base::Any';

sub new {
    my $class = shift;
    my $self = $class->SUPER::new(@_);
    my %args = @_;

    if ( defined $args{dir} and ref( $args{dir} ) eq 'App::StaticImageGallery::Dir' ) {
        $self->{_dir} = $args{dir};
    } else {

lib/App/StaticImageGallery/Base/Source.pm  view on Meta::CPAN

package     # hidden from pause
  App::StaticImageGallery::Base::Source;

use DateTime;
use Template;
use File::Basename ();
use parent 'App::StaticImageGallery::Base::NeedDir';

sub _build_tt {
    my $self    = shift;
    my $tt_args = shift;

    $self->{_TT} = Template->new({
        # INCLUDE_PATH => '',    # or list ref

lib/App/StaticImageGallery/Base/Source.pm  view on Meta::CPAN

sub TT { return shift->{_TT} };

sub write_style_files { die "write_style_files must be implemented in " . ref(shift) }
sub template_config { die "template_config must be implemented in " . ref(shift) }
sub image_page_template_name { die "image_page_template_name must be implemented in " . ref(shift) }
sub index_page_template_name { die "index_page_template_name must be implemented in " . ref(shift) }

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

    $stash->{now} = DateTime->now()
      unless ( defined $stash->{now} );

    $stash->{version} = $App::StaticImageGallery::VERSION
      unless ( defined $stash->{version} );

    $stash->{work_dir} = File::Basename::basename($self->work_dir)
      unless ( defined $stash->{work_dir} );

    $stash->{sig} = $self
      unless ( defined $stash->{sig} );