package D;

use strict;

sub new {
    my $self;
    $self = {};
    $self->{Server} = undef;
    $self->{InitialMethods} = undef;
    my $parser = XML::LibXML->new();
    bless $self;
    return $self;
}

sub setServer {
    my ($self, $server) = @_;
    $self->{InitialMethods} = { map { $_ => 1 } keys %{$server->{__method_table}} };
    $self->{Server} = $server;
}

sub initialize {
    my ($self) = @_;
    my $server = $self->{Server};

    # General exported functions for D
    $server->add_method(
        {
            name        => 'd.apply',
            version     => '1.0',
            hidden      => 0,
            code        => sub { $self->apply(@_) },
            signature   => [ 'string string' ],
            help        => q{ prints a string }
        }
    );

    $self->getMethodList();
}

sub getMethodList {
    my ($self) = @_;
    my $server = $self->{Server};

    # Not all RPC::XML version implement list_methods
    print "DEBUG($$): getMethodList called.\n";

    my @list = keys %{$server->{__method_table}};
    my @ordered_list = sort @list;

    print "DEBUG($$): first_method: ";
    print join("\nDEBUG($$): next_method: ", @ordered_list);
    print "\n";

    return \@ordered_list;
}

sub apply {
    my ($self, $server, $string) = @_;
    
    print "apply: entered\n";

    my $temp = "we are now in the apply function: $string\n";
    return $temp;
}

1;