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 31     31   224 use strict;
  31         46  
  31         936  
3 31     31   153 use warnings;
  31         47  
  31         809  
4 31     31   14619 use version;
  31         63546  
  31         180  
5             our $VERSION = '1.2812';
6             our @ISA = qw(feature);
7            
8             sub import {
9 1434     1434   2392 my $self = shift;
10 1434         9308 strict->import;
11 1434         17299 warnings->import;
12 1434         2428 eval {
13 1434         5534 require feature;
14 1434 100   0   4101 $Perlmazing::Feature::{unknown_feature_bundle} = sub {} unless defined $Perlmazing::Feature::{unknown_feature_bundle};
15 1434         103187 $self->SUPER::import(':'.substr version->new($])->normal, 1);
16             };
17             }
18            
19             1;
20            
21             __END__