view release on metacpan or  search on metacpan

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 {
        croak "Missing dir or wrong type: " . ref $args{work_dir};
    }

    return $self;
}