Mixin::Linewise::ReadeUser)Contributed Perl DocumenMixin::Linewise::Readers(3)NAMEMixin::Linewise::Readers - get linewise readers for strings and
filenames
SYNOPSIS
package Your::Pkg;
use Mixin::Linewise::Readers -readers;
sub read_handle {
my ($self, $handle) = @_;
LINE: while (my $line = $handle->getline) {
next LINE if $line =~ /^#/;
print "non-comment: $line";
}
}
Then:
use Your::Pkg;
Your::Pkg->read_file($filename);
Your::Pkg->read_string($string);
Your::Pkg->read_handle($fh);
EXPORTS
"read_file" and "read_string" are exported by default. Either can be
requested individually, or renamed. They are generated by
Sub::Exporter, so consult its documentation for more information.
Both can be generated with the option "method" which requests that a
method other than "read_handle" is called with the created IO::Handle.
read_file
Your::Pkg->read_file($filename);
If generated, the "read_file" export attempts to open the named file
for reading, and then calls "read_handle" on the opened handle.
Any arguments after $filename are passed along after to "read_handle".
read_string
Your::Pkg->read_string($string);
If generated, the "read_string" creates an IO::String handle from the
given string, and then calls "read_handle" on the opened handle.
Any arguments after $string are passed along after to "read_handle".
BUGS
Bugs should be reported via the CPAN bug tracker at
http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Mixin-Linewise
<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=Mixin-Linewise>
For other issues, or commercial enhancement or support, contact the
author.
AUTHOR
Ricardo SIGNES, "<rjbs@cpan.org>"
COPYRIGHT
Copyright 2008, Ricardo SIGNES.
This program is free software; you may redistribute it and/or modify it
under the same terms as Perl itself.
perl v5.14.1 2010-02-14 Mixin::Linewise::Readers(3)