File Coverage

inc/Test/MPMinus.pm

Criterion	Covered	Total	%
statement	21	21	100.0
branch			n/a
condition	1	2	50.0
subroutine	8	8	100.0
pod	0	3	0.0
total	30	34	88.2

package Test::MPMinus; # $Id: MPMinus.pm 7 2019-05-30 07:41:32Z minus $
use strict;
use vars qw/$VERSION/;
$VERSION = 1.01;

use Encode; # For CTK bug fix
use File::Spec::Functions;
use File::Temp qw/ tempdir /;

my $dir = tempdir( CLEANUP => 1 );

my %cfg = (
        default => undef,
        document_root => $dir,
        auth => {
                file => catfile($dir,'foo'.$$), # ':memory:',
            },
    );

sub new {
  my $class = shift;
  return bless {}, $class;
}
sub t {
  my $self = shift;
  return "Ok"
}

sub conf {
    my $self = shift;
    return $cfg{shift || 'default'};
}

1;