The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
<?xml version="1.0"?>
<!--
  
  This file was automatically generated by xmldoom-generate 0.0.15 !  
  
  -->
<objects xmlns="http://gna.org/projects/xmldoom/object" xmlns:perl="http://gna.org/projects/xmldoom/object-perl">
  <object xmlns="http://gna.org/projects/xmldoom/object" xmlns:perl="http://gna.org/projects/xmldoom/object-perl" name="Author" table="author" perl:class="example::BookStore::Author">
	<property name="author_id">
		<simple/>
	</property>
	<property name="first_name">
		<simple/>
	</property>
	<property name="last_name">
		<simple/>
	</property>

	<!-- external property -->
	<property name="book">
		<object name="Book"/>
	</property>
</object>
  <object xmlns="http://gna.org/projects/xmldoom/object" xmlns:perl="http://gna.org/projects/xmldoom/object-perl" name="Book" table="book" perl:class="example::BookStore::Book">
	<property name="book_id">
		<simple/>
	</property>
	<property name="title">
		<simple/>
	</property>
	<property name="isbn">
		<simple/>
	</property>
	<property name="publisher">
		<object name="Publisher">
			<options inclusive="true" property="name"/>
		</object>
	</property>
	<property name="author">
		<object name="Author"/>
	</property>
		
	<!-- a custom property type! -->
	<property name="age">
		<custom perl:class="example::BookStore::BookAgeProperty"/>
	</property>

	<!-- a simple property with slightly complex options -->
	<property name="publisher_id">
		<simple>
			<options inclusive="true" table="publisher" column="name">
					<!-- put them in reverse order, cuz we can! -->
					<criteria>
						<order-by>
							<attribute name="publisher/name"/>
						</order-by>
					</criteria>
			</options>
		</simple>
	</property>
</object>
  <object xmlns="http://gna.org/projects/xmldoom/object" xmlns:perl="http://gna.org/projects/xmldoom/object-perl" name="BooksOrdered" table="books_ordered" perl:class="example::BookStore::BooksOrdered">
	<property name="book">
		<object name="Book"/>
	</property>
	<property name="quantity">
		<simple/>
	</property>
</object>
  <object xmlns="http://gna.org/projects/xmldoom/object" xmlns:perl="http://gna.org/projects/xmldoom/object-perl" name="Order" table="orders" perl:class="example::BookStore::Order">
	<property name="date_opened">
		<simple/>
	</property>
	<property name="date_shipped">
		<simple/>
	</property>
	<property name="books_ordered" get_name="get_books_ordered" set_name="add_book_ordered">
			<object name="BooksOrdered"/>
	</property>
	<property name="book">
		<object name="Book" inter_table="books_ordered"/>
	</property>
</object>
  <object xmlns="http://gna.org/projects/xmldoom/object" xmlns:perl="http://gna.org/projects/xmldoom/object-perl" name="Publisher" table="publisher" perl:class="example::BookStore::Publisher">
	<property name="publisher_id">
		<simple/>
	</property>
	<property name="name">
		<simple/>
	</property>

	<!-- external property -->
	<property name="book">
		<object name="Book"/>
	</property>
</object>
</objects>