view release on metacpan or  search on metacpan

lib/Prty/ImagePool/Directory.pm  view on Meta::CPAN

            my $lst = $self->imageList;
            $seq = Prty::ImagePool::Sequence->new($file,$lst);
            if ($seq->count == 0 && $sloppy) {
                $seq = undef;
            }
        }
        $seq;
    };
}

# -----------------------------------------------------------------------------

=head2 Bilder

=head3 images() - Liste von Bildern aus dem Verzeichnis

=head4 Synopsis

    @images|$imageA = $dir->images($key);

=head4 Description

Liefere die Bild-Teilmenge $key. Der Schlüssel $key kann die
Ausprägungen annehmen:

=over 2

=item *

nicht agegeben oder leer

=item *

Sequenz-Bezeichner SEQUENCE

=item *

Range-Bezeichner SEQUENCE/RANGE

=back

=cut

# -----------------------------------------------------------------------------

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

    if (!$key) {
        if (my $seq = $self->sequence('default',-sloppy=>1)) {
            # Wenn eine nicht-leere Default-Sequenz existiert,
            # liefern wir deren Bilder
            return $seq->images;
        }
        # andernfalls liefern wir alle Bilder des Verzeichnisses
        return $self->imageList->images;
    }

    # Liefere die Bilder der Sequenz oder des Range

    my ($sequence,$range) = split m|/|,$key;
    return $self->sequence($sequence)->images($range);
}

# -----------------------------------------------------------------------------

=head3 image() - Lookup Bild-Objekt nach Bild-Nummer

=head4 Synopsis

    $img = $dir->image($n);

=cut

# -----------------------------------------------------------------------------

sub image {
    my ($self,$n) = @_;
    return $self->imageList->image($n);
}

# -----------------------------------------------------------------------------

=head1 VERSION

1.128

=head1 AUTHOR

Frank Seitz, L<http://fseitz.de/>

=head1 COPYRIGHT

Copyright (C) 2019 Frank Seitz

=head1 LICENSE

This code is free software; you can redistribute it and/or modify
it under the same terms as Perl itself.

=cut

# -----------------------------------------------------------------------------

1;

# eof