NAME

Modwheel::Instance - Base class for modwheel application components.

SYNOPSIS

package Modwheel::MyPackage;
use base qw(Modwheel::Instance);

package main;
my $pkg = Modwheel::MyPackage->new(
    modwheel   => $modwheel,
    db         => $db,
    user       => $user,
    object     => $object,
    repository => $repository,
    template   => $template,
);

CONSTRUCTOR

Modwheel::*E-<gtnew(%argv)>

Inherited method for creating a modwheel instance class.

ACCESSORS

$self->modwheel()

Access the Modwheel object,

$self->set_modwheel($modwheel)

Set the current Modwheel object to use.

$self->user()

Access the current object for working with users and authentication.

$self->set_user($user)

Set the current object for working with users and authentication.

$self->db()

Access the current object for working with databases.

$self->set_db($db)

Set the current object for working with databases.

$self->object()

Access the current object for working with Modwheel data objects.

$self->set_object($object)

Set the current object for working with Modwheel data objects.

$self->set_template($template)

Set the current object for working with templates.

$self->template()

Access the current object for working with templates.

$self->repository()

Access the current object for working with file repositories.

$self->set_repository()

Set the current object for working with file repositories.

INSTANCE METHODS

$self->setup_instance({modwheel = $modwheel ...})>

Private method used by new().

$self->explicit_free()

Explicitly destroy allocated objects.

EXPORT

None.

HISTORY

0.01

Initial version.

SEE ALSO

The README included in the Modwheel distribution.

The Modwheel website: http://www.0x61736b.net/Modwheel/

AUTHORS

Ask Solem, ask@0x61736b.net.

COPYRIGHT, LICENSE

Copyright (C) 2007 by Ask Solem ask@0x61736b.net.

All rights reserved.

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.6 or, at your option, any later version of Perl 5 you may have available.