dbix::dbistag(3)
NAME
DBIx::DBIStag - Structured Tags datastructures
SYNOPSIS
use DBIx::DBIStag;
my $dbh = DBIx::DBIStag->connect("dbi:Pg:dbname=mydb;host=localhost");
my $xmlstruct =
$dbh->selectall_stag(q[
SELECT
film.*,
director.*,
film_character.*,
actor.*
FROM
director NATURAL JOIN film
NATURAL JOIN role NATURAL
JOIN
character NATURAL JOIN
WHERE
film.genre = 'sci-fi' AND
actor.lname = 'fisher'
],
"[director[film[actor[");
print $xmlstruct->xml;
The above code will query the database and infer produce
output like the following:
<director-set>
<director>
<lname>lucas</lname>
<fname>george</fname>
<film>
<name>star wars</name>
<genre>sci-fi</genre>
<actor>
<lname>ford</lname>
<fname>harrison</fname>
<character>
<name>han solo</name>
</character>
</actor>
<actor>
<lname>fisher</lname>
<fname>carrie</fname>
<character>
<name>princess leia</name>
</character>
</actor>
DESCRIPTION BUGS WEBSITE
http://stag.sourceforge.net
AUTHOR
Chris Mungall <cjm@fruitfly.org>
COPYRIGHT
Copyright (c) 2002 Chris Mungall
- This module is free software. You may distribute this
module under the same terms as perl itself