| Module-New documentation | Contained in the Module-New distribution. |
Module::New::Files
Queue used internally to store which files to be created.
creates an object.
add files.
returns the first file left in the queue.
clears the queue.
Kenichi Ishigaki, <ishigaki@cpan.org>
Copyright (C) 2009 by Kenichi Ishigaki.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
| Module-New documentation | Contained in the Module-New distribution. |
package Module::New::Files; use strict; use warnings; sub new { bless [], shift; } sub add { my $self = shift; push @{ $self }, @_ if @_; } sub next { my $self = shift; shift @{ $self }; } sub clear { my $self = shift; @{ $self } = []; } 1; __END__