File Coverage

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


line stmt bran cond sub pod time code
1             package Perlmazing::Feature;
2 32     32   204 use strict;
  32         55  
  32         892  
3 32     32   154 use warnings;
  32         67  
  32         810  
4 32     32   14065 use version;
  32         64217  
  32         182  
5             our $VERSION = '1.2812';
6             our @ISA = qw(feature);
7             our $MAX_VERSION = '5.028000';
8              
9             sub import {
10 1482     1482   2206 my $self = shift;
11 1482         2215 my $version = $];
12 1482 100       3595 $MAX_VERSION = $] if $MAX_VERSION > $];
13 1482 50       2519 $version = $MAX_VERSION if $version > $MAX_VERSION;
14 1482         7674 strict->import;
15 1482         13799 warnings->import;
16 1482         2449 eval {
17 1482         5261 require feature;
18 1482 100   0   3523 $Perlmazing::Feature::{unknown_feature_bundle} = sub {} unless defined $Perlmazing::Feature::{unknown_feature_bundle};
19 1482         89399 $self->SUPER::import(':'.substr version->new($version)->normal, 1);
20             };
21             }
22              
23             1;
24              
25             __END__