File Coverage

inc/mock/File/HomeDir.pm

Criterion	Covered	Total	%
statement	20	22	90.9
branch	2	4	50.0
condition			n/a
subroutine	8	9	88.8
pod	4	4	100.0
total	34	39	87.1

package File::HomeDir;

use 5.008;

use strict;
use warnings;

use Carp;

use constant HASH_REF	=> ref {};

our $VERSION = '0.051_01';

our $MOCK_FILE_HOMEDIR_MY_DIST_CONFIG;
our $MOCK_FILE_HOMEDIR_MY_HOME;
our $MOCK_FILE_HOMEDIR_USERS_HOME;

sub my_dist_config {
    my ( undef, $dist ) = @_;
    HASH_REF eq ref $MOCK_FILE_HOMEDIR_MY_DIST_CONFIG
	and return $MOCK_FILE_HOMEDIR_MY_DIST_CONFIG->{$dist};
    return $MOCK_FILE_HOMEDIR_MY_DIST_CONFIG;
}

sub my_dist_data {
    goto &my_dist_config;
}

sub my_home {
    return $MOCK_FILE_HOMEDIR_MY_HOME;
}

sub users_home {
    my ( undef, $user ) = @_;
    HASH_REF eq ref $MOCK_FILE_HOMEDIR_USERS_HOME
	and return $MOCK_FILE_HOMEDIR_USERS_HOME->{$user};
    return $MOCK_FILE_HOMEDIR_USERS_HOME;
}

1;

__END__