File Coverage

blib/lib/Mutex.pm

Criterion	Covered	Total	%
statement	19	19	100.0
branch	5	6	83.3
condition	1	2	50.0
subroutine	6	6	100.0
pod	2	2	100.0
total	33	35	94.2

###############################################################################
## ----------------------------------------------------------------------------
## Mutex - Various locking implementations supporting processes and threads.
##
###############################################################################

package Mutex;

use strict;
use warnings;

our $VERSION = '1.011';

## no critic (BuiltinFunctions::ProhibitStringyEval)
## no critic (TestingAndDebugging::ProhibitNoStrict)

use Carp ();

sub new {
    my ($class, %argv) = @_;
    my $impl = defined($argv{impl})
        ? $argv{impl} : defined($argv{path}) ? 'Flock' : 'Channel';

    $impl = ucfirst( lc $impl );

    eval "require Mutex::$impl; 1;" ||
        Carp::croak("Could not load Mutex implementation '$impl': $@");

    my $pkg = 'Mutex::'.$impl;
    no strict 'refs';

    return $pkg->new( %argv );
}

## base class method

sub impl {
    return $_[0]->{impl} || 'Not defined';
}

1;

__END__