File Coverage

blib/lib/Mock/Quick/Object/Control.pm

Criterion	Covered	Total	%
statement	39	39	100.0
branch	2	2	100.0
condition	2	2	100.0
subroutine	13	13	100.0
pod	6	7	85.7
total	62	63	98.4

package Mock::Quick::Object::Control;
use strict;
use warnings;
use Mock::Quick::Util;
use Mock::Quick::Object;
use Mock::Quick::Method;

our %META;

sub target { shift->{target} }

sub new {
    my $class = shift;
    my ( $target ) = @_;
    return bless( { target => $target }, $class );
}

sub set_methods {
    my $self = shift;
    my %params = @_;
    for my $key ( keys %params ) {
        $self->target->{$key} = Mock::Quick::Method->new( $params{$key} );
    }
}

sub set_attributes {
    my $self = shift;
    my %params = @_;
    for my $key ( keys %params ) {
        $self->target->{$key} = $params{$key};
    }
}

sub clear {
    my $self = shift;
    for my $field ( @_ ) {
        delete $self->target->{$field};
        delete $self->metrics->{$field};
    }
}

sub strict {
    my $self = shift;
    ($META{$self->target}->{strict}) = @_ if @_;
    return $META{$self->target}->{strict};
}

sub metrics {
    my $self = shift;
    $META{$self->target}->{metrics} ||= {};
    return $META{$self->target}->{metrics};
}

sub _clean {
    my $self = shift;
    delete $META{$self->target};
}

purge_util();

1;

__END__