Compress code.

diff --git a/blog/data/2012-06-01-dell-support-json.txt b/blog/data/2012-06-01-dell-support-json.txt
index 532dea0e6fcb6e952bfb22cf82adaba718355806..bfe25cd79935ceafd240f5540298deb9024b7860 100644 (file)
--- a/blog/data/2012-06-01-dell-support-json.txt
+++ b/blog/data/2012-06-01-dell-support-json.txt
@@ -15,15 +15,12 @@ demonstrate how to do it:</p>
 <p><pre>
 use strict;
 use warnings;
 <p><pre>
 use strict;
 use warnings;

-

 use SOAP::Lite;
 use Data::Dumper;
 use SOAP::Lite;
 use Data::Dumper;

-

 my $GUID = '11111111-1111-1111-1111-111111111111';
 my $App = 'test';
 my $servicetag = $ARGV[0] or die "Please supply a servicetag. $!\n";
 my ($deal, $latest, @dates);
 my $GUID = '11111111-1111-1111-1111-111111111111';
 my $App = 'test';
 my $servicetag = $ARGV[0] or die "Please supply a servicetag. $!\n";
 my ($deal, $latest, @dates);

-

 my $s = SOAP::Lite
     -> uri('http://support.dell.com/WebServices/')
     -> on_action( sub { join '', @_ } )
 my $s = SOAP::Lite
     -> uri('http://support.dell.com/WebServices/')
     -> on_action( sub { join '', @_ } )


@@ -34,11 +31,7 @@ my $a = $s->GetAssetInformation(
     SOAP::Data->name('applicationName')->value($App)->type(''),
     SOAP::Data->name('serviceTags')->value($servicetag)->type(''),
 );
     SOAP::Data->name('applicationName')->value($App)->type(''),
     SOAP::Data->name('serviceTags')->value($servicetag)->type(''),
 );

-
-# Do the grabbing
-my $asset = $a -> result;
-
-print Dumper($asset) ;
+print Dumper($a -> result) ;

 </pre></p>
 
 <p>The output can look like this:</p>
 </pre></p>
 
 <p>The output can look like this:</p>