Select Code to Download

        my $object =    {   name            =>  $name   ,
                            port_list       =>  []      ,
                            verilog_list    =>  []      ,
                            signal_list     =>  []      ,
                            instance_list   =>  []      };

{
package Signal;
...
        printf("\t\t\t%s;\n",$self->{name});
    }
}

    sub _define{
        my  $class  =   shift   ;
...
        bless($object, $class);
        return $object;
    }