File Coverage

blib/lib/Mic/Contracts.pm

Criterion	Covered	Total	%
statement	10	10	100.0
branch	2	2	100.0
condition			n/a
subroutine	2	2	100.0
pod			n/a
total	14	14	100.0

package Mic::Contracts;
use strict;

sub import {
    my (undef, %contract_for) = @_;

    foreach my $class ( keys %contract_for ) {
        $Mic::Contracts_for{$class} = $contract_for{$class};
        if ( $Mic::Contracts_for{$class}{all} ) {
            $Mic::Contracts_for{$class} = { map { $_ => 1 } qw/pre post invariant/ };
        }
    }
    strict->import();
}

1;

__END__