File Coverage

lib/Perlmazing/Feature.pm
Criterion Covered Total %
statement 16 16 100.0
branch 2 2 100.0
condition n/a
subroutine 4 5 80.0
pod n/a
total 22 23 95.6


line stmt bran cond sub pod time code
1             package Perlmazing::Feature;
2 50     50   321 use strict;
  50         119  
  50         1498  
3 50     50   224 use warnings;
  50         80  
  50         1220  
4 50     50   21612 use version;
  50         95761  
  50         260  
5             our $VERSION = '1.2812';
6             our @ISA = qw(feature);
7            
8             sub import {
9 2168     2168   3305 my $self = shift;
10 2168         12209 strict->import;
11 2168         20827 warnings->import;
12 2168         3637 eval {
13 2168         7652 require feature;
14 2168 100   0   5675 $Perlmazing::Feature::{unknown_feature_bundle} = sub {} unless defined $Perlmazing::Feature::{unknown_feature_bundle};
15 2168         142735 $self->SUPER::import(':'.substr version->new($])->normal, 1);
16             };
17             }
18            
19             1;
20            
21             __END__