sub AUTOLOAD {   my ($self, @params) = @_;   if (my ($subName) = $AUTOLOAD =~ /.*::([^:])+$) {     print "Building sub $subName\n";     no strict 'refs';     *{$AUTOLOAD} =      sub {        my @params = @_;        print "Sub: @params\n";      };     goto $self->$subName(@params); } # AUTOLOAD