File Coverage

blib/lib/BW/Jumptable.pm

Criterion	Covered	Total	%
statement	12	28	42.8
branch	0	6	0.0
condition			n/a
subroutine	4	7	57.1
pod	2	2	100.0
total	18	43	41.8

# BW::Jumptable.pm
# Jump table support for BW::*
#
# by Bill Weinman - http://bw.org/
# Copyright (c) 1995-2010 The BearHeart Group, LLC
#
# See POD for History

package BW::Jumptable;
use strict;
use warnings;

use base qw( BW::Base );
use BW::Constants;

our $VERSION = "1.3.1";

sub _init
{
    my $self = shift;
    $self->SUPER::_init(@_);

    return FAILURE unless $self->{jumptable};

    return SUCCESS;
}

# _setter_getter entry points
sub jumptable { BW::Base::_setter_getter(@_); }

sub jump
{
    my $sn     = 'jump';
    my $self   = shift;
    my $action = shift;

    return $self->_error("$sn: no action") unless $action;

    foreach my $j ( keys %{ $self->{jumptable} } ) {
        if ( $j eq $action ) {
            &{ $self->{jumptable}{$j} }();
            return SUCCESS;
        }
    }

    return $self->_error("$sn: action not found ($action)");
}

1;

__END__