Pangloss::Application::View - current view of the application model.


Pangloss documentation Contained in the Pangloss distribution.

Index


Code Index:

NAME

Top

Pangloss::Application::View - current view of the application model.

SYNOPSIS

Top

  use Pangloss::Application::View;
  my $view = new Pangloss::Application::View();

  # use it as a hash

DESCRIPTION

Top

Simple hash so we can put views in the store.

Currently we're using direct-variable access (ie: regular perl hash), eventually these vars should live behind accessors.

ATM, Pangloss::Application::CollectionEditor does most of the populating.

KNOWN KEYS

Top

errors

The list of error objects.

users_collection, languages_collection, categories_collection, concepts_collection, terms_collection

The named Pangloss::Collection object.

users, languages, categories, concepts, terms,

The list() of Pangloss objects in the named Pangloss::Collection (this is a handy shortcut for Petal templates).

user, category, concept, term, language

The currently selected Pangloss object (ie: Pangloss::User, etc).

The following keys are added as needed:

    error    - associated error object
    added    - true if the pangloss object was added
    removed  - true if the pangloss object was removed
    modified - true if the pangloss object was modified

add, get, modify, remove

The hash of actions performed, which is added to as needed:

    user       Pangloss::User
    language   Pangloss::Language
    concept    Pangloss::Concept
    category   Pangloss::Category
    term       Pangloss::Term

This lets you chain things like this:

    $view->add->{user}->{error}
    $view->add->{user}->{added}

And so on.

NOTES

Top

Everything here is cloned, so you don't have to worry about modifying the original stored object (use Pangloss::Application to do that).

AUTHOR

Top

Steve Purkis <spurkis@quiup.com>

SEE ALSO

Top

Pangloss::Application


Pangloss documentation Contained in the Pangloss distribution.
package Pangloss::Application::View;

use strict;
use warnings::register;

use base qw( Pangloss::Object );

our $VERSION  = ((require Pangloss::Version), $Pangloss::VERSION)[1];
our $REVISION = (split(/ /, ' $Revision: 1.6 $ '))[2];

1;

__END__