#!/usr/bin/perl

use v5.12;
use warnings;
use Data::Dumper;

use LWP::UserAgent;
use MultipartFilter;

$|=1;

my $ua=LWP::UserAgent->new();
MultipartFilter->hookInto(
	$ua,
	onStart => sub {
		say "** Hey, I got a multi-part response!";
	},
	onDocument => sub {
		my ($part,$response,$ua)=@_;
		say "** Hey, I got a new document!";
		say "Headers are:";
		say $part->headers->as_string();
		say "Content is:";
		say $part->content();
	},
	onEnd => sub {
		say "** End of multipart response.";
	}
);

say "*** single-part response ***";
my $resp=$ua->get("http://localhost/~alex/files/server-push/hello.cgi");
say $resp->as_string();

say "*** multi-part response ***";
$resp=$ua->get("http://localhost/~alex/files/server-push/push-server.cgi");
say $resp->as_string();