Read delimited text files as objects
my $o = $p->fetchrow_object; my $name = $o->name;
Just call \*(L"fetchrow_object\*(R" on a Text::RecordParser object to instantiate an object.
This module extends the idea of how you interact with delimited text files, allowing you to enforce field names and identify field aliases easily. That is, if you are using the \*(L"fetchrow_hashref\*(R" method to read each line, you may misspell the hash key and introduce a bug in your code. With this module, Perl will throw an error if you attempt to read a field not defined in the file's headers. Additionally, any defined field aliases will be created as additional accessor methods.
As much as I like the full encapsulation of inside-out objects (e.g., as described in _Perl Best Practies_ by Damian Conway and provided by Class::Std), I couldn't figure out a way to dynamically create the class at runtime. Besides, I figure this interface is only for those who want to use the overhead of objects to enforce policy. If you use this module and still access the hash underneath the object, I can't really help you.
Class::Accessor.
Ken Youens-Clark <[email protected]>
Copyright (C) 2009-10 Ken Youens-Clark. All rights reserved.
This program is free software; you can redistribute it and/or modify it under the terms of the \s-1GNU\s0 General Public License as published by the Free Software Foundation; version 2.
This program is distributed in the hope that it will be useful, but \s-1WITHOUT\s0 \s-1ANY\s0 \s-1WARRANTY\s0; without even the implied warranty of \s-1MERCHANTABILITY\s0 or \s-1FITNESS\s0 \s-1FOR\s0 A \s-1PARTICULAR\s0 \s-1PURPOSE\s0. See the \s-1GNU\s0 General Public License for more details.