package Webservice::InterMine::Query::Roles::QueryParameters;
use Moose::Role;
requires qw(to_xml to_legacy_xml service);
sub resource_path {
my $self = shift;
return $self->service->QUERY_PATH;
}
sub upload_path {
my $self = shift;
return $self->service->QUERY_SAVE_PATH;
}
sub list_upload_path {
my $self = shift;
return $self->service->QUERY_LIST_PATH;
}
sub list_append_path {
my $self = shift;
return $self->service->QUERY_LIST_APPEND_PATH;
}
sub get_request_parameters {
my $self = shift;
my $xml = ( $self->service->version < 2 )
? $self->to_legacy_xml
: $self->to_query_xml;
return (query => $xml);
}
1;