File Coverage

blib/lib/Mic/ContractConfig.pm

Criterion	Covered	Total	%
statement	14	14	100.0
branch	4	4	100.0
condition			n/a
subroutine	2	2	100.0
pod	0	1	0.0
total	20	21	95.2

package Mic::ContractConfig;
use strict;

sub configure {
    my ($contract_for) = @_;

    foreach my $class (keys %{ $contract_for }) {
        foreach my $type (keys %{ $contract_for->{$class} }) {
            if ($contract_for->{$class}{$type} =~ /^off|false$/i) {
                $contract_for->{$class}{$type} = 0;
            }
        }
        $Mic::Contracts_for{$class} = $contract_for->{$class};
        if ( $Mic::Contracts_for{$class}{all} ) {
            $Mic::Contracts_for{$class} = { map { $_ => 1 } qw/pre post invariant/ };
        }
    }
}

1;