File Coverage

blib/lib/Scalar/Perl.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition n/a
subroutine 7 7 100.0
pod n/a
total 26 26 100.0


line stmt bran cond sub pod time code
1             package Scalar::Perl;
2 1     1   22341 use strict;
  1         2  
  1         37  
3 1     1   4 use warnings;
  1         2  
  1         27  
4 1     1   5 use utf8;
  1         1  
  1         7  
5 1     1   31 use 5.008_001;
  1         4  
  1         46  
6 1     1   971 use parent qw(Exporter);
  1         331  
  1         5  
7 1     1   613 use PLON ();
  1         2  
  1         87  
8              
9             our @EXPORT = qw($_perl);
10              
11             our $_perl = \&_perl;
12              
13 1     1   20 sub _perl { PLON->new->encode(shift) }
14              
15             1;
16