Hi All, I am trying to build my first module using method maker. Right now I have to classes, UPS::TrackRequest and UPS::TrackedPackage. When I Try to have a subroutine of TrackRequest pass a hash to TrackedPackage I don't get what I expect. print Dumper($processedXML); within the TrackRequest object has what I expect, but print Dumper($Package->_returned_xml()); in mny test script doesn't. 
package UPS::TrackRequest;
use strict;
use warnings;
use LWP::UserAgent;
use HTTP::Request::Common;
use XML::Simple;
use Data::Dumper;
use UPS::TrackedPackage;


use Class::MethodMaker
[   
    new => "new",
    scalar => [ qw( License Username Password TrackingNumber _returned
+_xml debug) ],
    scalar => [ [{ -default => 'https://wwwcie.ups.com/ups.app/xml/Tra
+ck' }, 'URL'],
                [{ -default => 'A Package'}, 'description']
              ]
];

sub requestTrack {
    my $self = shift;
    my $_ups_xml_req = "
        <?xml version=\"1.0\" ?>
        <AccessRequest xml:lang='en-US'>
            <AccessLicenseNumber>$self->License</AccessLicenseNumber>
            <UserId>$self->UserName</UserId>
            <Password>$self->Password</Password>
        </AccessRequest>
        <?xml version=\"1.0\" ?>
        <TrackRequest>
            <Request>
                <TransactionReference>
                    <CustomerContext>$self->PackageName</CustomerConte
+xt>
                </TransactionReference>
                <RequestAction>Track</RequestAction>
                <RequestOption>activity</RequestOption>
            </Request>
         <TrackingNumber>$self->TrackingNumber</TrackingNumber>
         </TrackRequest>
        ";
    if (defined( $self->debug) ) { print $_ups_xml_req, "\n"; }
    my $userAgent = LWP::UserAgent->new(agent => 'perl post');
    my $response = $userAgent->request(POST $self->URL, Content_Type =
+> 'text/xml',
                                                     Content => $_ups_
+xml_req);
    if (defined( $self->debug) ) { print $response->decoded_content, "
+\n"; }
    print $response->error_as_HTML unless $response->is_success;
    my $xml = new XML::Simple;
    #$self->{_returned_xml} = $xml->XMLin( $response->decoded_content)
+;
    my $processedXML = $xml->XMLin( $response->decoded_content);
    #print Dumper($processedXML);
    #print $processedXML->{Response}{Error}{ErrorDescription};
    #return UPS::TrackedPackage->new( _returned_xml => $processedXML);
    print (%{$processedXML});
    return UPS::TrackedPackage->new( _returned_xml => %{$processedXML}
+);
}

#sub  {

1;



use strict;
use warnings;

package UPS::TrackedPackage;

use Class::MethodMaker
[   
    new => "new",
    scalar =>  'debug' ,
    hash =>  '_returned_xml' ,
];

1;


#########My Test Script###########:
use strict;
use warnings;

use UPS::TrackRequest;
use Data::Dumper;
my $Package = UPS::TrackRequest->new();
$Package->Username('miles800');
#print $Package->Username();
#print $Package->URL();
my $tp = $Package->requestTrack();
print $Package->_returned_xml();
print $tp;
print Dumper($Package->_returned_xml());
#print $tp->_returned_xml()->{Shipment}{Shipper}{Address};

[download]

In reply to Passing a Hash to another Object in MethodMaker by kbrandt

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.