Pangloss::Application - the Pangloss application.

  use Pangloss::Application;
  my $app = new Pangloss::Application()
    ->store( new Pixie()->connect('...') );

  my $view1 = $app->user_editor->update_user( ... );
  my $view2 = $app->term_editor->add_term( ... );
  ...

  # see respective classes for syntax

package Pangloss::Application;

use strict;
use warnings::register;

use Error;

use Pangloss::Application::UserEditor;
use Pangloss::Application::LanguageEditor;
use Pangloss::Application::CategoryEditor;
use Pangloss::Application::ConceptEditor;
use Pangloss::Application::TermEditor;
use Pangloss::Application::Searcher;

use base      qw( Pangloss::Object );
use accessors qw( user_editor   store    searcher
		  term_editor     category_editor
		  concept_editor  language_editor );

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

sub init {
    my $self = shift;
    $self->user_editor( Pangloss::Application::UserEditor->new->parent($self) )
         ->language_editor( Pangloss::Application::LanguageEditor->new->parent($self) )
         ->category_editor( Pangloss::Application::CategoryEditor->new->parent($self) )
         ->concept_editor( Pangloss::Application::ConceptEditor->new->parent($self) )
         ->term_editor( Pangloss::Application::TermEditor->new->parent($self) )
         ->searcher( Pangloss::Application::Searcher->new->parent($self) );
}

1;

__END__

#------------------------------------------------------------------------------