File Coverage

lib/Kwiki/UserName/Remote.pm
Criterion Covered Total %
statement 7 9 77.7
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 10 12 83.3


line stmt bran cond sub pod time code
1             package Kwiki::UserName::Remote;
2 1     1   18482 use strict;
  1         3  
  1         40  
3 1     1   6 use warnings;
  1         2  
  1         41  
4              
5 1     1   513 use Kwiki::UserName -Base;
  0            
  0            
6             use mixin 'Kwiki::Installer';
7              
8             our $VERSION = "0.04";
9              
10             const class_title => 'Kwiki user name from HTTP authentication';
11              
12             sub register {
13             my $registry = shift;
14             $registry->add( preload => 'user_name' );
15             }
16              
17             __DATA__