File Coverage

blib/lib/Class/MVC.pm

Criterion	Covered	Total	%
statement	18	44	40.9
branch	0	12	0.0
condition			n/a
subroutine	6	16	37.5
pod	0	1	0.0
total	24	73	32.8

package Class::MVC;

use 5.006;
use strict;
use warnings;

our $VERSION = '0.01.06';

our $DEBUG = 0;

use Class::Maker qw(:all);

use Class::Listener;

use Class::Observable;

	# The Facade

	Class::Maker::class
	{
		public =>
		{
			ref => [qw( model view controller )],
		},
	};

	sub _preinit : method
	{
		my $this = shift;

			$this->controller( ( ref($this).'::Controller' )->new() );

			$this->model( ( ref($this).'::Model' )->new() );

			$this->view( ( ref($this).'::View' )->new() );
	}

	sub _postinit : method
	{
		my $this = shift;

			$this->interconnect();
	}

	sub interconnect : method
	{
		my $this = shift;

			$this->view->model( $this->model ) if $this->model;

			$this->view->controller( $this->controller ) if $this->controller;

			$this->controller->model( $this->model ) if $this->model;

			$this->controller->view( $this->view ) if $this->view;

			$this->model->add_observer( $this->view ) if $this->view;
	}

package Class::MVC::Model;

	Class::Maker::class
	{
		isa => [qw( Class::Observable )],

	};

	sub DESTROY
	{
		my $this = shift;

			$this->delete_observers;
	}

package Class::MVC::View;

	Class::Maker::class
	{
		isa => [qw( Class::Listener )],

		public =>
		{
			ref => [qw( controller model )],
		},
	};

		# dispatch method for Observer ( see Class::Observable )

	sub update : method
	{
		my $this = shift;

		my ( $object, $action ) = @_;

	return $this->Class::Listener::signal( $action, $object );
	}

package Class::MVC::CompositeView;

	Class::Maker::class
	{
		isa => [qw( Class::MVC::View )],

		public =>
		{
			# The subView/superView relationship

			ref => [qw( super_view )],
		},
	};

		# not implemented

	sub sub_views : method
	{
		my $this = shift;
	}

	sub update : method
	{
		my $this = shift;

			# update yourself

		$this->SUPER::update( @_ );

			# and your superviews

		$this->super_view->update( @_ ) if $this->super_view;
	}

package Class::MVC::Controller;

	Class::Maker::class
	{
		public =>
		{
			ref => [qw( model view )],
		},
	};

	sub _postinit : method
	{
		my $this = shift;
	}

	sub update_model : method
	{
		my $this = shift;

				# call Model methods from here

			$this->model->Class::Listener::signal( 'update', $this, @_ );
	}

	sub change_view : method
	{
		my $this = shift;

				# call View methods from here

			$this->view->Class::Listener::signal( 'change', $this, @_ );
	}

1;

__END__