Dependency of nagios-plugins-nwc-health-8.0-1.1.src.rpm

Name: perl-Class-Base

Project: openSUSE_13.2

Repository: oss

Title: useful base class for deriving other modules

Description:
Please consider using the Badger::Base manpage instead which is the
successor of this module.

This module implements a simple base class from which other modules can be
derived, thereby inheriting a number of useful methods such as 'new()',
'init()', 'params()', 'clone()', 'error()' and 'debug()'.

For a number of years, I found myself re-writing this module for
practically every Perl project of any significant size. Or rather, I would
copy the module from the last project and perform a global search and
replace to change the names. Each time it got a little more polished and
eventually, I decided to Do The Right Thing and release it as a module in
it's own right.

It doesn't pretend to be an all-encompassing solution for every kind of
object creation problem you might encounter. In fact, it only supports
blessed hash references that are created using the popular, but by no means
universal convention of calling 'new()' with a list or reference to a hash
array of named parameters. Constructor failure is indicated by returning
undef and setting the '$ERROR' package variable in the module's class to
contain a relevant message (which you can also fetch by calling 'error()'
as a class method).

e.g.

my $object = My::Module->new(
file => 'myfile.html',
msg => 'Hello World'
) || die $My::Module::ERROR;

or:

my $object = My::Module->new({
file => 'myfile.html',
msg => 'Hello World',
}) || die My::Module->error();

The 'new()' method handles the conversion of a list of arguments into a
hash array and calls the 'init()' method to perform any initialisation. In
many cases, it is therefore sufficient to define a module like so:

package My::Module;
use Class::Base;
use base qw( Class::Base );

sub init {
my ($self, $config) = @_;

$self->params($config, qw( FOO BAR )) || return undef;
return $self;
}



1;

Then you can go right ahead and use it like this:

use My::Module;

my $object = My::Module->new( FOO => 'the foo value',
BAR => 'the bar value' )
|| die $My::Module::ERROR;

Despite its limitations, Class::Base can be a surprisingly useful module to
have lying around for those times where you just want to create a regular
object based on a blessed hash reference and don't want to worry too much
about duplicating the same old code to bless a hash, define configuration
values, provide an error reporting mechanism, and so on. Simply derive your
module from 'Class::Base' and leave it to worry about most of the detail.
And don't forget, you can always redefine your own 'new()', 'error()', or
other method, if you don't like the way the Class::Base version works.

Version: 0.05

Release: 4.1.3

Architecture: noarch

Size: 23.2 KB

Build Time: 2014-10-06 15:21:54 +0200 (over 9 years ago)