Minimal example of an MVC implementation

MVC.pl

#!/usr/bin/perl -l
package Model;
use Moose;
has state => ( is => 'ro', reader => 'get_state', default => 0 );
sub set_state { $_[0]->{state} += $_[1] }

package View;
use Moose;
sub update_display { print $_[1]->get_state }

package Controller;
use Moose;
has model => ( is => 'ro', default => sub { Model->new } );
has view  => ( is => 'ro', default => sub { View->new  } );
sub run {
    my ($model, $view) = ($_[0]->model, $_[0]->view);
    for (1, 5, 8, -20, 5, 2) {
        $model->set_state( $_ );
        $view->update_display( $model );
    }
}

package main;
Controller->new->run;

I have since learned that the View should start the engine, not the Controller. Live and learn. 🍕