File Coverage

blib/lib/Mic/Bind.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 9 9 100.0


line stmt bran cond sub pod time code
1             package Mic::Bind;
2 11     11   416998 use strict;
  11         51  
  11         1045  
3              
4             sub import {
5 11     11   109 my (undef, %binding) = @_;
6              
7 11         43 foreach my $class ( keys %binding ) {
8 11         33 $Mic::Bound_implementation_of{$class} = $binding{$class};
9             }
10 11         290 strict->import();
11             }
12              
13             1;
14              
15             __END__