use 5.010;
use strict;
use PerlX::MethodCallWithBlock;

use Path::Class qw(file dir);
use Web::Magic -sub => 'web';
use XML::LibXML 2.0000;

my $listing     = URI->new('http://buzzword.org.uk/2012/');
my $destination = dir('/home/tai/tmp/downloaded/');

# Make sure destination directory exists.
$destination->mkpath;

web($listing)

	# Die if 404 or some other error
	-> assert_success
	
	# Find all the links on the page
	-> querySelectorAll('a[href]')
	
	# Skip uninteresting links
	-> grep {
		not (
			/Parent Directory/
			or $_->{href} =~ m{\?}  # has a query
			or $_->{href} =~ m{/$}  # ends in slash
		)
	}
	
	# Expand relative URI references to absolute URIs
	-> map {
		URI->new_abs($_->{href}, $listing)
	}
	
	# Save each to the destination directory
	-> foreach {
		# Figure out name of file to save as
		my $filename = $destination->file( [$_->path_segments]->[-1] );
		
		# Log a message
		printf STDERR "Saving <%s> to '%s'\n", $_, $filename;
		
		# Save it!
		web($_)->save_as("$filename");
	}