File Coverage

blib/lib/Mic/Interface.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::Interface;
2 3     3   95942 use strict;
  3         18  
  3         285  
3              
4             sub import {
5 3     3   44 my ($class, %arg) = @_;
6              
7 3         11 my $caller_pkg = (caller)[0];
8 3         27 $Mic::Spec_for{$caller_pkg}{interface} = \%arg;
9 3         87 strict->import();
10             }
11              
12             1;
13              
14             __END__