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 10     10   167885 use strict;
  10         38  
  10         840  
3              
4             sub import {
5 10     10   89 my (undef, %binding) = @_;
6              
7 10         36 foreach my $class ( keys %binding ) {
8 10         28 $Mic::Bound_implementation_of{$class} = $binding{$class};
9             }
10 10         261 strict->import();
11             }
12              
13             1;
14              
15             __END__