view release on metacpan or  search on metacpan

MVC.pm  view on Meta::CPAN

		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;

MVC.pm  view on Meta::CPAN

		},
	};

		# 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;

MVC.pm  view on Meta::CPAN

		{	
			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
	{