DBIx::Class::LibXMLdoc 0.03

DBIx::Class::LibXMLdoc is a Perl module to create an adjunct "Doc" accessor of a columns data which is automatically parsed into a LibXML documentElement (alpha-software). SYNOPSIS package My::DB::thingy; __PACKAGE__->load_components(qw/ PK::Auto LibXMLdoc Core /); __PACKAGE__->table(thingy); __PACKAGE__->add_columns(qw/ id title body created owner whatever /); __PACKAGE__->set_primary_key(id); __PACKAGE__->libXMLdoc_columns(qw/ body /); package main; use My::DB; my $schema = My::DB->connect(...); my $thingy = $schema->resultset("thingy")->find(153); print $thingy->bodyDoc->toString, "nn"; print $thingy->bodyDoc->textContent, "n"; This DBIx::Class component does not alter your data in any way. It takes column names to get the value from the column, parse it into XML with LibXML and make the documentElement object available via an autogenerated accessor named by affixing the column with "Doc." The XML parsing is on demand so it doesnt waste time doing it to data you dont use or by doing it more than once to data that is unchanged. A wrapper XML tag for the mini-document is auto-generated from the table + column name. So- my $xhmlt = <<"; < p > Aint no doubt Jesus see us< br/ > Acting foolishly on American Bandstand < /p > my $thingy = $schema->resultset("thingy") ->create({ title => "Gullah", body => $xhtml }); my $root = $thingy->bodyDoc; print $root->toString, $/; # gives us ---------------- < thingybody >< p > Aint no doubt Jesus see us< br/ > Acting foolishly on American Bandstand < /p >< /thingybody > The returned item, $root above, is the < doc-documentElement >> of a XML::LibXML::Document. It returns the documentElement instead of the document object itself because the document object is less frequently/directly useful and in the cases you might want it, e.g. to modify the document with new nodes, you can still get it with ownerDocument. E.g.- my $doc = $root->ownerDocument; my $title = $doc->createElement("h1"); my $text = $doc->createTextNode($thingy->title); $title->appendChild($text); $root->insertBefore($title, $root->firstChild); print $root->ownerDocument->toString, $/; # NOW gives us (spacing added) ------ < ?xml version="1.0" encoding="utf-8"? > < thingybody > < h1 >Gullah< /h1 > < p > Aint no doubt Jesus see us< br/ > Acting foolishly on American Bandstand < /p >< /thingybody > The encoding, as utf-8 above, is only set if the UTF8Columns component is also being used on the column. I believe this means load order matters. I.e. it should be- __PACKAGE__->load_components(qw/ UTF8Columns LibXMLdoc Core /); When youre using both..

Requirements:	No special requirements
Platforms:	Linux
Keyword:	Accessor,  Columns,  Data,  Dbix,  Dbixclasslibxmldoc,  Doc,  Libraries,  Libxmldoc,  Module,  Package,  Perl,  Perl Module,  Programming,  To Create
Users rating:	0/10