#
# PACKAGE PACKAGE_NAME
#

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;
}

#
# END OF PACKAGE PACKAGE_NAME
#