File Coverage

lib/Perlmazing/Feature.pm
Criterion Covered Total %
statement 19 19 100.0
branch 4 6 66.6
condition n/a
subroutine 4 5 80.0
pod n/a
total 27 30 90.0


line stmt bran cond sub pod time code
1             package Perlmazing::Feature;
2 34     34   244 use strict;
  34         62  
  34         1455  
3 34     34   449 use warnings;
  34         73  
  34         2155  
4 34     34   16062 use version;
  34         73629  
  34         273  
5             our $VERSION = '1.2812';
6             our @ISA = qw(feature);
7             our $MAX_VERSION = '5.028000';
8              
9             sub import {
10 1614     1614   2694 my $self = shift;
11 1614         3232 my $version = $];
12 1614 50       5112 $MAX_VERSION = $] if $MAX_VERSION > $];
13 1614 50       3871 $version = $MAX_VERSION if $version > $MAX_VERSION;
14 1614         11006 strict->import;
15 1614         42938 warnings->import;
16 1614         3314 eval {
17 1614         7150 require feature;
18 1614 100   0   4643 $Perlmazing::Feature::{unknown_feature_bundle} = sub {} unless defined $Perlmazing::Feature::{unknown_feature_bundle};
19 1614         165527 $self->SUPER::import(':'.substr version->new($version)->normal, 1);
20             };
21             }
22              
23             1;
24              
25             __END__