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   155907 use strict;
  10         22  
  10         739  
3              
4             sub import {
5 10     10   100 my (undef, %binding) = @_;
6              
7 10         36 foreach my $class ( keys %binding ) {
8 10         27 $Mic::Bound_implementation_of{$class} = $binding{$class};
9             }
10 10         241 strict->import();
11             }
12              
13             1;
14              
15             __END__