package Foo;

use strict;
use XML::LibXML;
use CommonObject;
use vars qw{ @ISA };
@ISA = qw{ CommonObject };

sub new {
    my $proto = shift;
    my $class = ref($proto) || $proto;
    my $self  = XML::LibXML::Element->new('Foo');
    #my $doc   = XML::LibXML::Document->new();

    #$doc->setDocumentElement($self);

    bless($self, $class);

    $self->createTextField('Name');

    return $self;
}

sub setName {
    my $self = shift;
    my $name = shift;
    return $self->setTextFieldValue('Name', $name);
}

sub getName {
    my $self = shift;
    return $self->getTextFieldValue('Name');
}

1;