Linux and UNIX Man Pages

Linux & Unix Commands - Search Man Pages

mixin::linewise::writers(3) [centos man page]

Mixin::Linewise::Writers(3)				User Contributed Perl Documentation			       Mixin::Linewise::Writers(3)

NAME
Mixin::Linewise::Writers - get linewise writeers for strings and filenames VERSION
version 0.004 SYNOPSIS
package Your::Pkg; use Mixin::Linewise::Writers -writers; sub write_handle { my ($self, $data, $handle) = @_; $handle->print("datum: $_ ") for @$data; } Then: use Your::Pkg; Your::Pkg->write_file($data, $filename); Your::Pkg->write_string($data, $string); Your::Pkg->write_handle($data, $fh); EXPORTS
"write_file" and "write_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 "write_handle" is called with the created IO::Handle. write_file Your::Pkg->write_file($data, $filename); This method will try to open a new file with the given name. It will then call "write_handle" with that handle. Any arguments after $filename are passed along after to "write_handle". write_string my $string = Your::Pkg->write_string($data); "write_string" will create a new IO::String handle, call "write_handle" to write to that handle, and return the resulting string. Any arguments after $data are passed along after to "write_handle". AUTHOR
Ricardo SIGNES <rjbs@cpan.org> COPYRIGHT AND LICENSE
This software is copyright (c) 2008 by Ricardo SIGNES. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. perl v5.16.3 2013-06-18 Mixin::Linewise::Writers(3)

Check Out this Related Man Page

Mixin::Linewise::Readers(3)				User Contributed Perl Documentation			       Mixin::Linewise::Readers(3)

NAME
Mixin::Linewise::Readers - get linewise readers for strings and filenames VERSION
version 0.004 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". AUTHOR
Ricardo SIGNES <rjbs@cpan.org> COPYRIGHT AND LICENSE
This software is copyright (c) 2008 by Ricardo SIGNES. This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself. perl v5.16.3 2013-06-18 Mixin::Linewise::Readers(3)
Man Page