package AXControl; use Moose; #Object Attributes has 'System' => (is => 'rw', isa => 'Str', required => 1); has 'ToolsHandle' => (is => 'rw', isa => 'Object'); has 'SysHandle' => (is => 'rw', isa => 'Object'); sub BUILD { $self->shift; # should print "This module is a AXControl module.\n"; print "This module is a " . $self->ModuleName . " module.\n"; }