Yet Another CPAN Grep

Plack-Middleware-TrafficAdvice ( R/RR/RRWO/Plack-Middleware-TrafficAdvice-v0.3.1.tar.gz, RRWO, 2024; MetaCPAN )

Plack-Middleware-TrafficAdvice/lib/Plack/Middleware/TrafficAdvice.pm ( view source; MetaCPAN )

;

use Cwd;
use File::Temp qw/ tempfile /;
use HTTP::Date;
use HTTP::Status qw/ :constants /;
use JSON::MaybeXS 1.004000;

our $VERSION = 'v0.3.1';


sub prepare_app {
    my ($self) = @_;

    if (my

traffic-advice-XXXXXXXX', SUFFIX => '.json', UNLINK => 0, TMPDIR => 1);
        $self->file( $filename );

        if (ref($data)) {
            my $encoder = JSON::MaybeXS->new( { utf8 => 1 } );

file));

    [
        HTTP_OK,
        [
         'Content-Type'   => 'application/trafficadvice+json',
         'Content-Length' => $stat[7],
         'Last-Modified'  => HTTP::Date::time2str( $stat