File Coverage

blib/lib/UNIVERSAL/AUTHORITY/Lexical.pm
Criterion Covered Total %
statement 9 11 81.8
branch n/a
condition n/a
subroutine 4 4 100.0
pod n/a
total 13 15 86.6


line stmt bran cond sub pod time code
1             package UNIVERSAL::AUTHORITY::Lexical;
2              
3 3     3   73010 use 5.008001;
  3         13  
  3         110  
4 3     3   15 use strict;
  3         5  
  3         167  
5              
6             BEGIN {
7 3     3   5 $UNIVERSAL::AUTHORITY::Lexical::AUTHORITY = 'cpan:TOBYINK';
8 3         48 $UNIVERSAL::AUTHORITY::Lexical::VERSION = '0.003';
9             }
10              
11 3     3   4376 use Object::AUTHORITY;
  0            
  0            
12             use parent qw(Method::Lexical);
13              
14             sub import
15             {
16             (shift)->SUPER::import(
17             'UNIVERSAL::AUTHORITY' => \&Object::AUTHORITY::AUTHORITY,
18             );
19             }
20              
21             1;
22              
23             __END__