File Coverage

blib/lib/Plack/Middleware/Acme/AAHTTPHeader.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	7	10	70.0
condition			n/a
subroutine	8	8	100.0
pod	2	2	100.0
total	49	52	94.2

package Plack::Middleware::Acme::AAHTTPHeader;
use strict;
use warnings;
use parent qw/Plack::Middleware/;
use Plack::Util;
use Plack::Util::Accessor qw/
    aa
    key
/;

our $VERSION = '0.01';

# https://www.asciiart.eu/holiday-and-events/4th-of-july
my $DEFAULT_AA = <<'_TXT_';
                                       .
              . .                     -:-             .  .  .
            .'.:,'.        .  .  .     ' .           . \ | / .
            .'.;.`.       ._. ! ._.       \          .__\:/__.
             `,:.'         ._\!/_.                     .';`.      . ' .
             ,'             . ! .        ,.,      ..======..       .:.
            ,                 .         ._!_.     ||::: : | .        ',
     .====.,                  .           ;  .~.===: : : :|   ..===.
     |.::'||      .=====.,    ..=======.~,   |"|: :|::::::|   ||:::|=====|
  ___| :::|!__.,  |:::::|!_,   |: :: ::|"|l_l|"|:: |:;;:::|___!| ::|: : :|
 |: :|::: |:: |!__|; :: |: |===::: :: :|"||_||"| : |: :: :|: : |:: |:::::|
 |:::| _::|: :|:::|:===:|::|:::|:===F=:|"!/|\!"|::F|:====:|::_:|: :|::__:|
 !_[]![_]_!_[]![]_!_[__]![]![_]![_][I_]!//_:_\\![]I![_][_]!_[_]![]_!_[__]!
 -----------------------------------"---''''```---"-----------------------
 _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ |= _ _:_ _ =| _ _ _ _ _ _ _ _ _ _ _ _
                                     |=    :    =|                Valkyrie
_____________________________________L___________J________________________
--------------------------------------------------------------------------
_TXT_

sub prepare_app {
    my $self = shift;

    if (!$self->aa) {
        $self->aa([split /(?:\r\n|\n|\r)/, $DEFAULT_AA]);
    }
    elsif (ref($self->aa) ne 'ARRAY') {
        $self->aa([split /(?:\r\n|\n|\r)/, $self->aa]);
    }

    $self->key or $self->key('happy')
}

sub call {
    my $self = shift;
    my $res  = $self->app->(@_);

    $self->response_cb(
        $res,
        sub {
            my $res = shift;

            return if $res->[0] != 200;
            return unless defined $res->[2];

            my $headers = $res->[1];

            my $count = 1;
            for my $line (@{$self->aa}) {
                Plack::Util::header_set(
                    $headers,
                    sprintf("x-%s%03d", $self->key, $count),
                    $line
                );
                $count++;
            }
        },
    );
}

1;

__END__