File Coverage

blib/lib/MySQL/Admin/Actions.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	6	8	75.0
condition	7	12	58.3
subroutine	9	9	100.0
pod	4	4	100.0
total	53	60	88.3

package MySQL::Admin::Actions;
use strict;
use warnings;
use utf8;
require Exporter;
use vars qw($m_hrActions $DefaultClass @EXPORT  @ISA $defaultconfig);
@MySQL::Admin::Actions::EXPORT = qw(loadActions saveActions $m_hrActions);
use MySQL::Admin::Config;
@MySQL::Admin::Actions::ISA     = qw( Exporter MySQL::Admin::Config);
$MySQL::Admin::Actions::VERSION = '1.11';
$DefaultClass  = 'MySQL::Admin::Actions' unless defined $MySQL::Admin::Actions::DefaultClass;
$defaultconfig = '/var/www/cgi-bin/config/actions.pl';

=head1 NAME

MySQL::Admin::Actions - actions for Mysql::Admin

=head1 SYNOPSIS

        use vars qw($m_hrActions);

        *actions = \$MySQL::Admin::Actions::actions;

        $m_hrActions = {

                welcome => {

                        sub => 'main',

                        file => 'content.pl',

                        title => 'Welcome',

                        whatever => 'storeyour own Stuff'

                        },
        };
        saveActions();

actions

=head1 DESCRIPTION

Actions for MySQL::Admin.

=head2 EXPORT

loadActions() saveActions() $m_hrActions

=head1 Public

=head2 new

=cut

sub new {
    my ($class, @initializer) = @_;
    my $self = {};
    bless $self, ref $class || $class || $DefaultClass;
    return $self;
}

=head2 loadActions

=cut

sub loadActions {
    my ($self, @p) = getSelf(@_);
    my $do = (defined $p[0]) ? $p[0] : $defaultconfig;
    if (-e $do) { do $do; }
}

=head2 saveActions

=cut

sub saveActions {
    my ($self, @p) = getSelf(@_);
    $self->SUPER::saveConfig(@p, $m_hrActions, 'actions');
}

=head1 Private

=head2 getSelf

=cut

sub getSelf {
    return @_ if defined($_[0]) && (!ref($_[0])) && ($_[0] eq 'MySQL::Admin::Actions');
    return (defined($_[0])
              && (ref($_[0]) eq 'MySQL::Admin::Actions'
                  || UNIVERSAL::isa($_[0], 'MySQL::Admin::Actions')))
      ? @_
      : ($MySQL::Admin::Actions::DefaultClass->new, @_);
}

=head2 see Also

L L L L L L

=head1 AUTHOR

Dirk Lindner

=head1 LICENSE

Copyright (C) 2005-2015 by Hr. Dirk Lindner

This program is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public License
as published by the Free Software Foundation;
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU Lesser General Public License for more details.

=cut

1;