File Coverage

blib/lib/Hub/Base/Object.pm

Criterion	Covered	Total	%
statement	6	16	37.5
branch			n/a
condition	0	3	0.0
subroutine	2	5	40.0
pod	3	3	100.0
total	11	27	40.7

package Hub::Base::Object;
use strict;
use Hub qw/:lib/;
our $VERSION = '4.00043';
our @EXPORT = qw//;
our @EXPORT_OK = qw//;

# ------------------------------------------------------------------------------
# new - Constructor.
# new [@parameters]
# Parameters are passed to the standard initialization method L.
# ------------------------------------------------------------------------------

sub new {
  my $self = shift;
  my $class = ref( $self ) || $self;
  my $obj = bless {}, $self;
  my $tied = tie %$obj, 'Hub::Knots::Object', $obj;
  $obj->{'internal:tied'} = $tied;
  $obj->refresh( @_ );
  return $obj;
}#new

# ------------------------------------------------------------------------------
# daccess - Direct access to member hashes
# daccess $hash_key
# Where $hash_key and be:
#   'public'        Public hash
#   'private'       Private hash
#   'internal'      Internal hash (used to tie things together)
# ------------------------------------------------------------------------------

sub daccess {
    my ($self,$opts) = Hub::objopts( \@_ );
    $self->{'internal:tied'}->_access( @_ );
}#daccess

# ------------------------------------------------------------------------------
# refresh - Return instance to initial state.
# refresh [@parameters]
#
# Interface method, override in your derived class.  Nothing is done in this
# base class.
#
# Called implictly by L, and when persistent interpreters (such as
# mod_perl) would have called L.
# ------------------------------------------------------------------------------

sub refresh {
# my ($self,$opts) = Hub::objopts( \@_ );
}#refresh

# ------------------------------------------------------------------------------
1;

__END__