package Module_IO; use Moose; has name => (is => 'rw', isa => 'Str'); has net_type => (is => 'rw', isa => 'Str'); has width => (is => 'rw', isa => 'Str'); has direction => (is => 'rw', isa => 'Str'); sub print_all_IO{ my ($self) = @_; print $self->name; }