package Xot::Field; use Xot::Reference; use strict; sub new { my $class = shift; my $twig = shift; $class = "Xot::Reference" if ($twig->att("references")); my $self = bless {}, $class; $self->init($twig); return $self; } sub init { my $self = shift; my $twig = shift; printf "\n====================\n"; $twig->print; print "\n====================\n"; } 1;