File Coverage

lib/Kwiki/Users/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::Users::Remote;
2 1     1   59675 use strict;
  1         3  
  1         41  
3 1     1   6 use warnings;
  1         4  
  1         49  
4              
5 1     1   653 use Kwiki::Users -Base;
  0            
  0            
6              
7             our $VERSION = "0.04";
8              
9             const class_title => 'Kwiki users from HTTP authentication';
10             const user_class => 'Kwiki::User::Remote';
11              
12             package Kwiki::User::Remote;
13             use base 'Kwiki::User';
14              
15             sub name {
16             exists $ENV{REMOTE_USER}
17             ? $ENV{REMOTE_USER}
18             : $self->hub->config->user_default_name;
19             }
20              
21             sub id {
22             exists $ENV{REMOTE_USER}
23             ? $ENV{REMOTE_USER}
24             : $self->hub->config->user_default_name;
25             }
26              
27             __DATA__