File Coverage

blib/lib/Test/MockPackages/Package.pm

Criterion	Covered	Total	%
statement	32	32	100.0
branch	6	6	100.0
condition	6	6	100.0
subroutine	9	9	100.0
pod	2	2	100.0
total	55	55	100.0

package Test::MockPackages::Package;
use strict;
use warnings;
use utf8;

our $VERSION = '1.00';

use Carp qw(croak);
use English qw(-no_match_vars);
use Test::MockPackages::Mock();

sub new {
    my ( $pkg, $package_name ) = @ARG;

    if ( !$package_name || ref( $package_name ) ) {
        croak( '$package_name is required and must be a SCALAR' );
    }

    return bless {
        _package_name => $package_name,
        _mocks        => {},
    }, $pkg;
}

sub mock {
    my ( $self, $name ) = @ARG;

    if ( !$name || ref( $name ) ) {
        croak( '$name is required and must be a SCALAR' );
    }

    if ( my $mock = $self->{_mocks}{$name} ) {
        return $mock;
    }

    return $self->{_mocks}{$name} = Test::MockPackages::Mock->new( $self->{_package_name}, $name );
}

sub DESTROY {
    my ( $self ) = @ARG;

    # ensures that objects are destroyed in a consistent order.
    for my $key ( sort keys %{ $self->{_mocks} } ) {
        delete $self->{_mocks}{$key};
    }
}

1;

__END__