##################################################################
# Copyright (C) 2000 Greg London All Rights Reserved.
# This program is free software; you can redistribute it and/or
# modify it under the same terms as Perl itself.
##################################################################
##################################################################
package Hardware::Verilog::Hierarchy;
use Hardware::Verilog::Parser;
@ISA = ( 'Hardware::Verilog::Parser' );
##################################################################
use vars qw ( $VERSION );
$VERSION = '0.03';
##################################################################
##################################################################
sub new
##################################################################
{
my ($pkg) = @_;
# make Hardware::Verilog::Hierarchy object, use SUPER:: to find the method via @ISA
my $r_hash = $pkg->SUPER::new;
# $r_hash -> Replace ( q(
#name_of_instance :
# module_instance_identifier
# range(?)
#
# { print "INSTANCENAME $item{module_instance_identifier} \n"; }
#
#module_declaration_identifier :
# identifier
# { print "MODULENAME $item{identifier} \n"; }
#
# ));
# bless it as a vhdl_hierarchy object
bless $r_hash, $pkg;
return $r_hash;
}