diff options
author | Daniel Friesel <derf@finalrewind.org> | 2011-03-02 18:26:50 +0100 |
---|---|---|
committer | Daniel Friesel <derf@finalrewind.org> | 2011-03-02 18:26:50 +0100 |
commit | 37e21a2515a4b80ee661a2422204cfc42faf927b (patch) | |
tree | 4b8abde98325ef7638b6feb45bb70273abbdf937 /lib/App/Dthumb/Data.pm.PL | |
parent | 48da68f614a9da1b7f91b50a3e4c6655009e211e (diff) |
App::Dthumb::Data: Add list_archived() to simplify App::Dthumb create_files()
Diffstat (limited to 'lib/App/Dthumb/Data.pm.PL')
-rw-r--r-- | lib/App/Dthumb/Data.pm.PL | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/App/Dthumb/Data.pm.PL b/lib/App/Dthumb/Data.pm.PL index c430c0a..0e602ef 100644 --- a/lib/App/Dthumb/Data.pm.PL +++ b/lib/App/Dthumb/Data.pm.PL @@ -59,6 +59,11 @@ sub set_vars { $self->{replace} = \%vars; } +sub list_archived { + my ($self) = @_; + return grep { ! /\.dthumb$/ } $self->section_data_names(); +} + sub get { my ($self, $name) = @_; my $data = $self->section_data($name); |