Filesource - Reporter handler for plain text information
use Data::Reporter::Filesource;
$source = new Data::Reporter::Filesource(File => $file); # $file - source filename
$subru = sub {print "record -> $_\n"}; $source->getdata($subru); $source->configure(File => $file);
new()
Creates a new handler to manipulate the file information.
File File with the information to process. It is the only valid option at this moment
getdata($subru)
For each record in the file, call the function $subru, passing the record as a parameter
"|" is the field separator.