Wallflower - Stick Plack applications to the wallpaper
use Wallflower; my $w = Wallflower->new( application => $app, # a PSGI app destination => $dir, # target directory ); # dump all URL from $app to files in $dir $w->get( $_ ) for @urls;
my $w = Wallflower->new( %args );
Create a new Wallflower object.
The parameters are:
The PSGI/Plack application, as a CODE reference.
This parameter is required.
The destination directory. Default is the current directory.
The destination directory must exist.
Additional environment key/value pairs.
The default filename for URLs ending in
/. The default value is index.html.
URL where the root of the application will be reachable in production.
If the URL has a path component, the application will be "mounted" at that position.
my $response = $w->get( $url );
GET request for
$url through the application, and if successful, save the result to a filename derived from
$url by the
$url can be either a string or a URI object, representing an absolute URL (the path must start with a
/). The scheme, host, port, and query string are ignored if present.
The return value is very similar to a Plack application response:
[ $status, $headers, $file ]
$headers are those returned by the application itself for the given
$file is the name of the file where the content has been saved.
If an error is encountered when trying to open the file,
$status will be set to
999 (an invalid HTTP status code), and a warning will be emitted.
If a file exists at the location pointed to by the target, a
If-Modified-Since header is added to the Plack environment, with the modification timestamp for this file as the value. If the application sends a
304 Not modified in response, the target file will not be modified.
my $target = $w->target($uri);
Return the filename where the content of
$uri will be saved.
path component of
$uri is concatenated to the
destination attribute. If the URL ends with a
index attribute is appended to create a file path.
$uri is a URI object, and that it must be absolute.
Accessors (getters only) exist for all parameters to
new() and bear the same name.
Philippe Bruhat (BooK) <email@example.com>
Copyright 2012-2015 by Philippe Bruhat (BooK).
This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.