Select Code to Download

      QBXML(
        QBXMLMsgsRq( {onError => "stopOnError"},
                 inner()
                 ));

augment 'as_xml' => sub {
    my ($self, $name)=@_;
...
      VendorAdd(
          Name($name)));
};

  <?xml version="1.0" encoding="utf-8"?>
  <?qbxml version="10.0"?>
...
      </VendorAddRq>
    </QBXMLMsgsRq>
  </QBXML>

  <?xml version="1.0" encoding="utf-8"?>
  <?qbxml version="10.0"?>
...
      </VendorAddRq>
    </QBXMLMsgsRq>
  </QBXML>

{ my $VendorAddRq = XML::Writer::Nest->new(tag => 'VendorAddRq');

...
     { my $Name = $VendorAdd->data(Name => $name) }
  }
}

   { my $VendorAdd = $VendorAddRq->nest('VendorAdd');
   
...
     { my $IsActive = $row->{active} ? $VendorAdd->data(IsActive => 1)
+ : 0 }
  }

      VendorAddRq(
      VendorAdd(
...
              maybeRenderIsActive($row)
           )
       )

augment 'as_xml' => sub {
...
              $self->logic_engine->maybeRenderIsActive(@_) # just give
+ it the whole indata
           )
       )

package XML::Quickbooks::LogicEngine;
...
}

1;