package LedgerSMB::RESTXML::Document::SalesOrder;
use strict;
use warnings;
use base qw(LedgerSMB::RESTXML::Document::Base);

sub handle_get {
    my ( $self, $args ) = @_;

    print "Content-type: text/html\n\n";
    print "It still works";

}

1;