File Coverage

blib/lib/Hub/Base/NoOp.pm

Criterion	Covered	Total	%
statement	6	17	35.2
branch	0	2	0.0
condition	0	3	0.0
subroutine	2	5	40.0
pod	1	1	100.0
total	9	28	32.1

package Hub::Base::NoOp;
use strict;
use Hub qw/:lib/;
our ($AUTOLOAD);
our $VERSION = '4.00043';
our @EXPORT = qw//;
our @EXPORT_OK = qw//;

# ------------------------------------------------------------------------------
# new - Constructor
# ------------------------------------------------------------------------------

sub new {
	my $self = shift;
	my $class = ref( $self ) || $self;
  my $objkey = shift;
	return bless { objkey => $objkey }, $class;
}#new

# ------------------------------------------------------------------------------
# AUTOLOAD - Dump error message
# ------------------------------------------------------------------------------

sub AUTOLOAD {
  my $self = shift;
  my ($pkg,$func) = ($AUTOLOAD =~ /(.*)::([^:]+)$/);
  unless( $self->{'objkey'} eq 'logger' ) {
    my $msg = "Call to undefined object ($self->{'objkey'})->$func";
    confess $msg;
  }#unless
  undef;
}#AUTOLOAD

# ------------------------------------------------------------------------------
# DESTROY - Defining this function prevents it from being searched in AUTOLOAD
# ------------------------------------------------------------------------------

sub DESTROY {
}#DESTROY

1;