#!/usr/bin/env perl
use v5.38; # Automatically enables strict, warnings, and modern features!
use feature 'signatures';
no warnings 'experimental::signatures';

# Subroutine with Typed Parameter Signatures
sub process_transaction ($account_id, $amount, $currency = 'USD') {
    die "Invalid account ID" unless $account_id =~ /^[A-Z]{3}-d{6}$/;
    die "Amount must be positive" if $amount <= 0;
    
    say "Processed $currency $amount for account: $account_id";
    return {
        status    => 'SUCCESS',
        account   => $account_id,
        amount    => $amount,
        timestamp => time(),
    };
}

use v5.38;
use feature 'class';
no warnings 'experimental::class';

# Native Encapsulated Class (Zero CPAN dependencies!)
class BankAccount {
    field $account_id :param;
    field $balance    :param = 0.0;

    method deposit ($amount) {
        die "Amount must be positive" if $amount <= 0;
        $balance += $amount;
        return $balance;
    }

    method withdraw ($amount) {
        die "Insufficient funds" if $amount > $balance;
        $balance -= $amount;
        return $balance;
    }

    method get_balance () {
        return $balance; # True private field encapsulation!
    }
}

# High-Speed Named Capture Regex parsing with Lookaround
my $log_line = '192.168.1.100 [2026-08-16T10:00:00Z] "GET /api/v1/users HTTP/2.0" 200 4096';

if ($log_line =~ /^(?<ip>d{1,3}(?:.d{1,3}){3})s+[(?<time>[^]]+)]s+"(?<method>[A-Z]+)s+(?<uri>S+)[^"]*"s+(?<status>d{3})s+(?<bytes>d+)/) {
    say "IP: $+{ip} | Status: $+{status} | URI: $+{uri}";
}

use Mojolicious::Lite -signatures;

# Non-Blocking Real-Time WebSocket Echo Server in Mojolicious
websocket '/channel' => sub ($c) {
    $c->inactivity_timeout(300);
    
    $c->on(message => sub ($c, $msg) {
        # Broadcast message asynchronously across Mojo::IOLoop!
        $c->send({ json => { received => $msg, timestamp => time() } });
    });
};

app->start;

use v5.38;
use Inline C => <<'END_C';

// High-speed compiled C function embedded directly in Perl!
long fast_fibonacci(int n) {
    if (n <= 1) return n;
    long a = 0, b = 1, c;
    for (int i = 2; i <= n; i++) {
        c = a + b;
        a = b;
        b = c;
    }
    return b;
}
END_C

# Invoked seamlessly like a native Perl subroutine!
my $result = fast_fibonacci(50);
say "Fibonacci(50) = $result";