The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
=head1 NAME

Pangloss::Application - the Pangloss application.

=head1 SYNOPSIS

  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

=cut

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__

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

=head1 DESCRIPTION

This class is the main entry point to the Pangloss system.

=head1 METHODS

=over 4

=item store()

set/get the L<Pixie> object store for this application.

=item user_editor()

set/get the L<Pangloss::Application::UserEditor>.

=item language_editor()

set/get the L<Pangloss::Application::LanguageEditor>.

=item category_editor()

set/get the L<Pangloss::Application::CategoryEditor>.

=item concept_editor()

set/get the L<Pangloss::Application::ConceptEditor>.

=item term_editor()

set/get the L<Pangloss::Application::TermEditor>.

=item searcher()

set/get the L<Pangloss::Application::Searcher>.

=back

=head1 AUTHOR

Steve Purkis <spurkis@quiup.com>

=head1 SEE ALSO

L<Pangloss>

=cut