Operational Diagnostics Reports

Data Freshness Report

Evaluate data age against a maximum threshold and label the freshness state.

data freshness Data freshness compares recorded age against a configured maximum to flag stale inputs early.

Data Freshness Report

age_minutes
data_freshness.pl
Replay: real traced execution (multi-file project)
use strict;
use warnings;

my $age_minutes = 18;
my $max_age = 30;
my $fresh_status = "aging";

if ($age_minutes <= 10) {
    $fresh_status = "fresh";
} elsif ($age_minutes > $max_age) {
    $fresh_status = "stale";
}

print "age=$age_minutes max=$max_age status=$fresh_status\n";

use strict;
use warnings;

my $age_minutes = 5;
my $max_age = 30;
my $fresh_status = "aging";

if ($age_minutes <= 10) {
    $fresh_status = "fresh";
} elsif ($age_minutes > $max_age) {
    $fresh_status = "stale";
}

print "age=$age_minutes max=$max_age status=$fresh_status\n";

use strict;
use warnings;

my $age_minutes = 45;
my $max_age = 30;
my $fresh_status = "aging";

if ($age_minutes <= 10) {
    $fresh_status = "fresh";
} elsif ($age_minutes > $max_age) {
    $fresh_status = "stale";
}

print "age=$age_minutes max=$max_age status=$fresh_status\n";

  1. $age_minutes ← 18, $max_age ← 30, $fresh_status ← aging

    4my $age_minutes→ 18 = 18; #@age_minutes=5, 455my $max_age→ 30 = 30;6my $fresh_status→ aging = "aging";78if ($age_minutes <= 10) {9    $fresh_status = "fresh";10} elsif ($age_minutes > $max_age) {11    $fresh_status = "stale";12}1314print "age=$age_minutes18 max=$max_age30 status=$fresh_statusaging\n";
    outputage=18 max=30 status=aging

  1. $age_minutes ← 5, $max_age ← 30, $fresh_status ← aging

    4my $age_minutes→ 5 = 5;5my $max_age→ 30 = 30;6my $fresh_status→ aging = "aging";

  2. $fresh_status ← fresh

    8if ($age_minutes5 <= 10) {9    $fresh_status→ fresh = "fresh";10} elsif ($age_minutes > $max_age) {

  3. print "age=$age_minutes max=$max_age status=$fresh_status ";

    14print "age=$age_minutes5 max=$max_age30 status=$fresh_statusfresh\n";
    outputage=5 max=30 status=fresh

  1. $age_minutes ← 45, $max_age ← 30, $fresh_status ← aging

    4my $age_minutes→ 45 = 45;5my $max_age→ 30 = 30;6my $fresh_status→ aging = "aging";

  2. $fresh_status ← stale

    9    $fresh_status = "fresh";10} elsif ($age_minutes45 > $max_age30) {11    $fresh_status→ stale = "stale";12}

  3. print "age=$age_minutes max=$max_age status=$fresh_status ";

    14print "age=$age_minutes45 max=$max_age30 status=$fresh_statusstale\n";
    outputage=45 max=30 status=stale