package App::PipeFilter::Role::Opener::GenericInput;
{
$App::PipeFilter::Role::Opener::GenericInput::VERSION = '0.005';
}
use Moose::Role;
sub open_input {
my ($self, $filename) = @_;
if ($filename eq '-') {
warn "reading from standard input\n" if $self->verbose();
return \*STDIN;
}
warn "reading from $filename\n" if $self->verbose();
open my $fh, " uses open_input() to open the input files
specified on the command line. Opening files is done in a dedicated
method so it may be augmented or overridden in subclasses.
=head1 SEE ALSO
You may read this module's implementation in its entirety at
perldoc -m App::PipeFilter::Role::Opener::GenericInput
L has top-level documentation including a table of
contents for all the libraries and utilities included in the project.
=head1 BUGS
L
=head1 REPOSITORY
L
=head1 COPYRIGHT AND LICENSE
App::PipeFilter::Role::Opener::GenericInput
is Copyright 2011 by Rocco Caputo.
All rights are reserved.
App::PipeFilter::Role::Opener::GenericInput
is released under the same terms as Perl itself.
=cut
# vim: ts=2 sw=2 expandtab