basic_MVP.uml

#!/bin/perl
use warnings;
use strict;

package Model;

package View;
use Moose;
has presenter => (is => 'ro', isa => 'Pesenter');
no Moose;

package Presenter;
use Moose;
has model => (is => 'ro', isa => 'Model');
no Moose;

package View::Test;
use Moose;
use Tk;
has entry => (is => 'ro', isa => 'Tk::Entry');

sub BUILD {
	my $self = shift;

	my $mw = MainWindow->new();
	my $f = $mw->Frame();
	$self->entry($f->Entry())->pack();
	$f->pack;
	MainLoop;
}

__END__
@startuml basic_MVP.png
!ifdef COMMENT
class Model 
class View {
Presenter presenter
}
class Presenter {
Model model
}
!endif

"View::Test" --> "Presenter::Test" : presenter
"Presenter::Test" --> "Model::Test" : model

set namespaceSeparator ::

class View::Test {
	Presenter::Test presenter
	Tk::Entry string_e

	Str presentString()
	void storeString()
}

class Presenter::Test {
	View::Test view
	Str getModelString()
}
class Model::Test {
	Str test_string

	Str getString()
}
@enduml