#!/usr/bin/perl

use strict;
use warnings;

use Class::DBI::Loader;
use HTML::Element;

my $loader = Class::DBI::Loader->new( dsn       => "dbi:Pg:dbname=beerdb",
				      user      => "",
				      password  => "",
				      namespace => "" ,
				      options   => { pg_enable_utf8 => 1 });

my $class = $loader->find_class('beer')
;
my @beer = $class->retrieve_all();

foreach my $beer (@beer) {
    my $name = $beer->name();
    print "Name: ", $name, "\n";
    print HTML::Element->new("textarea", name => "name")->push_content($name)->as_XML, "\n";
}