Pangloss::Application::Base - base class for application objects.

  # abstract class - cannot be used directly
  use base qw( Pangloss::Application::Base );

  sub foo {
      my $self = shift;
      $self->parent;
      $self->store;
      my $obj = $self->get_or_create_stored_obj( $key, $class );
      $self->save( $obj );
  }

This is a base class for all application objects.

$obj->parent

set/get the parent application.

$obj->store

set/get the parent's store.

$abc = $obj->get_or_create_stored_obj( $key, $class )

gets or creates an object bound to $key from the store. calls $class->new and stores the result if no object is found in the store.

$obj->save( $abc )

save this object in the store.

Steve Purkis <spurkis@quiup.com>

Pangloss::Application