# -*- perl -*-
#
# $Id$
# $Source$
# $Author$
#

require 5.002;
use strict;

package PACKAGE_NAME;
use vars qw($package);
$package = "PACKAGE_NAME";

# Field names
use vars qw($f_field);
$f_field = "field";

# Static Variables

# Routines

sub new
{
    my $class = shift;
    my $rep = +{$package => {} };

    $rep->{$package}{$f_field} = 1;

    bless $rep, $class;
}

1;

#
# END OF PACKAGE_NAME
#