Response State Panel

Replay a small response state machine with scalar request and response values.

response_state_panel.pl

use strict;
use warnings;

my $route = ;
my $status = "";
my $message = "";

if ($route eq "refresh") {
    $status = "ok";
    $message = "cache refreshed";
} elsif ($route eq "archive") {
    $status = "queued";
    $message = "archive queued";
} else {
    $status = "ok";
    $message = "service ready";
}

my $payload = $status . ":" . $message;

print "route=$route\n";
print "status=$status\n";
print "payload=$payload\n";

use strict;
use warnings;

my $route = ;
my $status = "";
my $message = "";

if ($route eq "refresh") {
    $status = "ok";
    $message = "cache refreshed";
} elsif ($route eq "archive") {
    $status = "queued";
    $message = "archive queued";
} else {
    $status = "ok";
    $message = "service ready";
}

my $payload = $status . ":" . $message;

print "route=$route\n";
print "status=$status\n";
print "payload=$payload\n";

use strict;
use warnings;

my $route = ;
my $status = "";
my $message = "";

if ($route eq "refresh") {
    $status = "ok";
    $message = "cache refreshed";
} elsif ($route eq "archive") {
    $status = "queued";
    $message = "archive queued";
} else {
    $status = "ok";
    $message = "service ready";
}

my $payload = $status . ":" . $message;

print "route=$route\n";
print "status=$status\n";
print "payload=$payload\n";

response state Model a response as scalar state before handing it to a real service boundary.