Wallflower - Stick Plack applications to the wallpaper
version 1.004
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;
Given a URL and a Plack application, a Wallflower object will save the corresponding response to a file.
Create a new Wallflower object.
The parameters are:
applicationThe PSGI/Plack application, as a CODE reference.
This parameter is required.
destinationThe destination directory. Default is the current directory.
The destination directory must exist.
envAdditional environment key/value pairs.
indexThe default filename for URLs ending in /. The default value is index.html.
Perform a GET request for $url through the application, and if successful, save the result to a filename derived from $url by the target() method.
$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's:
[ $status, $headers, $file ]
where $status and $headers are those returned by the application itself for the given $url, and $file is the name of the file where the content has been saved.
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.
Return the filename where the content of $uri will be saved.
The path component of $uri is concatenated to the destination attribute. If the URL ends with a /, the index attribute is appended to create a file path.
Note that target() assumes $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) <book@cpan.org>
This software is copyright (c) 2012 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.
