package Report;
use Data::Dumper;
use strict;
use warnings;
use ReportRequest;
use ReportResponse;

=begin WSDL

_IN Report $ReportRequest a ReportRequest object
_RETURN $ReportResponse a ReportResponse object
_DOC Request or retreive a bandwidth report

=cut
sub Report {
=begin WSDL


_IN request $ReportRequest a ReportRequest  type (this is in the method)
_DOC Method: Report

=cut
#  my $class = shift();
#  my $self = {};
#  my %in = @_;

  open LOG, ">>soapservice.log";
  print LOG "Report method\n";
  print LOG Dumper(@_);
  close LOG;

  return "fluff"; # bless ($self, $class);
}

1;